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IDENTIFICA1 ION 


PRODUCT CODE:  AC-8584D--MC 

PRODUCT NAME: CZDPDDO DUP11 SDLC DECMD TST 
PRODUCT DATE: JULY 1979 
MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 

SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1975, 1979 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: \ 
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ABSTRACT 


THE FUNCTION OF THE DUP11 DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING ? SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THAT ALL OPERATIONS 
OF THE DUP11 ARE CORRECT IN ITS ENVIROMENT. PARAMETERS MAY BE 
SET TO ALERT DIAGNOSTICS AS TO THE DUP11 CONFIGURATION BY 
ANSWERING THE PARAMETER DIALOG (LOAD ADDRESS=200, START 
ADDRESS=1). ALL QUESTIONS SHOULD BE ANSWERED AND THEN EACH 
DIAGNOSTIC WILL ‘OVERLAY’' THESE PARAMETERS WHICH ARE STORED IN 
THE *'STATUS TABLE’’ (SEE SECTION 8.4). THE ALTERNATIVE TO _ THE 
PARAMETER DIALOG IS DEFAULT PARAMETERS (SEE SECTION 8.5). 


THE DIAGNOSTICS WILL RUN UP TO EIGHT oe iY ADDRESSED 
AND CONSECUTIVELY VECTORED DUP11'S IN A CHAIN MODE, 
RUNNING THE DIAGNOSTIC COMPLETELY FOR ONE DEVICE Bri oRé 
STARTING THE NEXT. 


CZDPD TESTS THE ABILITY OF THE DEVICE TO RUN A_ LIMITED SDLC 
PROTOCALL AND LONG DATA PATTERNS. SPECIFIC DATA PATTERNS ARE 
RUN TO PROVE BIT-STUFF CAPABILITY. THE EIA DATA GATES ARE 
PROVEN AND THE PRIORITY LOGIC FUNCTIONS ARE CHECKED. 


CZDPD TESTS ALL THE FUNCTIONS OF DECMODE AND DOES LONG AND 
SHORT DATA TESTS INTERNALLY AND OVER THE CABLE, IF ATTACHED. 
BCC, USING THE CRC16 POLYNOMIAL IS CHECKED, AND THE DEVICE IS 
TESTED RUNNING A LIMITED DDCMP PROTOCALL. 


CURRENTLY THERE ARE THREE OFF-LINE DIAGNOSTICS THAT ARE TO BE 
RUN IN SEQUENCE TO ENSURE a IF AN y SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE ESTABLISH THAT 
fay gg OF THE ERROR WILL BE IMMEDIATE T TO DISCOVERING THE 


NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE THREE DIAGNOSTICS ARE: 


CZDPB CREV] BASIC AND OFFLINE TRANSMITTER TESTS 
cZDPC CREVJ lectimer Ware AND MODEM CONTROL AND 


IN 
3. CZDPD CREVI AT es SDLC AND DECMODE DATA AND FUNCTION 


nNi— 
.* e 


NOTE: THERE IS A FOURTH PROGRAM, TAPE CZDPE CREV] WHICH IS A 
QUICK-VERIFY TAPE THAT REQUIRES ANSWERING A DIALOG. 
ITS FUNCTION IS_ TO ENABLE THE OPERATOR TO QUICKLY 
DETERMINE IF THERE IS A PROBLEM WITH THE DEVICE. SEE 
THE DOCUMENTATION IN THAT LISTING FOR MORE INFORMATION. 





SEQ 0002 
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2.0 
2.1 


REQUIREMENTS 
EQUIPMENT 


ANY PDP11 FAMILY CPU (WITH MINIMUM 8k MEMORY) 
a (OR EQUILIVALENT) 


STORAGE 


PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABS AND 
BOOTSTRAP LOADER _ RESIDE. 1500 THRU 1560 ARE 
ESPECIALLY TO BE NOTED AND UNTOUCHED BY THE OPERATOR 
AFTER THE DUP11 PARAMETER DIALOG HAS BEEN EXECUTED OR AFTER 
THE DEFAULT SETUP HAS BEEN DONE. 


LOADING PROCEDURE 
ME THOD 


L_ PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING _ THE 
ABSOLUTE LOADER. NOTE: IF_ THE DIAGNOSTICS ARE ON A MEDIA 
MAGTAPE, DECTAPE, OR _ CASSETTE FOLLOW 
FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT 

SPECIFIC MEDIA. 


- ABSOLUTE LOADER STARTING ADDRESS = *+500 





SIZE 


*) 
fe 
7 
7 
1 
3 
5 


PLACE ADDRESS OF ABS LOADER INTO SWITCH REGISTER. (ALSO PLACE 
"HALT’ Sw UP) 


DEPRESS ‘LOAD ADDRESS* KEY ON CONSOLE AND RELEASE. 


DEPRESS ‘START KEY' Nt CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 
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4.0 


s~ 
. 
— 


STARTING PROCEEDURE 
A. SET SWITCH REGISTER TO 000200 
B. DEPRESS ‘LOAD ADDRESS’ KEY AND RELEASE 


C. SET SWR TO ZERO FOR DEFAULT PARAMETERS ESTABLISHED IN THE 
TAPE (SEE SECTION 8.5.3 FOR FULL EXPLANATION OF DEFAULT 
PARAMETERS) OR LEAVE SWR BIT 7=1 TO USE EXISTING 
PARAMETERS PREVIOUSLY SET UP BY THE DUP11 PARAMETER DIALOG 
OR A PREVIOUSLY RUN DUP11 DIAGNOSTIC. SET SwWR=1 TO GO 
THROUGH THE PARAMETER DIALOG. (IT IS NOT NECESSARY TO 
INPUT NEW PARAMETERS FOR EACH TAPE.) (SECTION 7.2, 8.4 AND 
8.5 MAY BE HELPFUL) 


D. DEPRESS "START KEY" AND RELEASE. THE PROGRAM WILL TYPE 
THE PROGRAM NAME (IF THIS WAS THE FIRST START UP OF THE 
PROGRAM) AND ALSO THE FOLLOWING: 


. 


"EXAMPLE" 
"MAP OF DUP11 STATUS' 

1500 160050 CSR OF FIRST DUP11 

1502 000300 VECTOR OF FIRST DUP1? 

1504 140026 STATUS AND SYNC FOR FIRST DUP11 
1506 160060 CSR OF SECOND DUP11 

1510 000310 VECTOR OF SECOND DUP11 

1512 140026 STATUS AND SYNC FOR SECOND DUP11 


THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS 
TABLE STARTING AT ADDRESS 1500 IN THE PROGRAM. THE STATUS 
TABLE MUST BE VERIFIED BY THE USER. FOR INFORMATION ON THE 
STATUS TABLE SEE SECTION 8.4 FOR HELP. 


IT IS POSSIBLE FOR THE OPERATOR TO MANUALLY CHANGE (TOGGLE IN) 
THE INFORMATION IN THE MAP TO SUIT A SPECIFIC CONFIGURATION OF 
DEVICES, BUT THE RESPONSIBILITY FOR VERIFYING THAT INFORMATION 
RESTS WITH THE OPERATOR. 

THE PROGRAM WILL TYPE ‘R' AND PROCEED TO RUN THE DJAGNOSTIC 


CONTROL SWITCH SETTINGS 


SW 15 SET: HALT ON ERR 

SW 14 SET: LOOP ON CURRENT id 

SW 13 SET: INHIBIT ERROR PRINT OUT 

SW 12 SET: INHIBIT TYPE OUT/BELL ON ERROR. 
SW 11 SET: INHIBIT ITERATIONS. (QUICK PASS) 
Sw 10 SET: ESCAPE TO NEXT TEST ON ERROR 

SW 09 SET: LOOP WITH CURRENT DATA 

SW 08 SET: CATCH ERROR AND LOOP ON IT 

Sw O07 SET: USE PREVIOUS STATUS TABLE. 

SW O06 SET: RESERVED 


5EQ 0004 


~ 
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RESERVED 





SETS 






: RESERVED 

Sw 03 SET: SELECT DUP11°S DESIRED ACTIVE 

SW G2 SET: LOCK ON SELECTED TEST 

SW QO1 SET: RESTART PROGRAM AT SELECTED TEST 

SW OO SET: ENTER PARAMETERS USING MANUAL DIALOG 


SWITCHES 8 THROUGH 15 ARE DYNAMIC AND SHOULD BE writ AS NEEDED 

IN THE DIAGNOSTIC. SWITCHES 0 THROUGH 3 ARE STATIC (ONLY ARE 

OPERABLE WHEN THE MONITOR PORTION OF THE TAPE IS RUNNING) AND 

Spmaetit. SET UP PRIOR TC STARTING OR RESTARTING THE 
A Oi ° 4 


4.1.2 SWITCH REGISTER RESTRICTIONS 


Sw O03 RESELECT DUP11"S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS _ TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO DUP11°S ACTIVE. THIS MEANS IF THE SYSTEM HAS 
THREE DUP11S BITS O00, O01, O2 WILL BE SET IN LOC 
*DUPACTV’ FROM THE SWITCH REGISTER. _ USING THIS 
SWITCH(SWO3) ALTERS THAT LOCATION. THEREFORE, IF 
THREE DUPI171S ARE IN THE SYSTEM ***DO NOT*** SET 
SWITCHES GREATER THAN SW 02 IN THE UP POSITION. THIS 
WOULD BE A FATAL ERROR. DO NOT SELECT MORE ACTIVE 
DUP11S_ THAN HAS BEEN GIVEN INFORMATION ABOUT IN THE 
PARAMETER PROGRAM. 


AS EXPLAINED IN SECTION 1.0, DEVICES SHOULD BE 
CONSECUTIVELY ADDRESSED, AND CAN BE SELECTED OR 
DESELECTED USING THIS SWITCH. 


METHOD: A. LOAD ADDRESS 200 

B. START WITH SW 03=1 

C. PROGRAM WILL TYPE MESSAGE 

D. SET THE BINARY NUMBER OF DUP11S DESIRED 
ACTIVE. EXAMPLE: 1=1 DUP11; 3=2 DUP11; 
7=3 DUP11; 17=4 DUP11 37=5 DUPT1 ETC. 
PRESS CONTINUE. 

E. NUMBER (IF VALID) WILL BE IN DATA LIGHTS 
(EXCLUDING 11/05) 

F. SET WITH ANY OTHER SWITCH SETTINGS 
DESIRED. PRESS CONTINUE. 


SW 01 RESTART PROGRAM AT SELECTED TEST. IT IS° STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE oe 
TRYING TO SELECT A TEST THAT IS NOT IN THE ORDER 
SEQUENCE. THE REASON FOR THIS IS THAT THE PROGRAM HAS 
TO CLEAR AREAS AND SET UP PARAMETERS IN THE MONITOR 
PORTION OF THE PROGRAM. IT IS POSSIBLE TO LD200, AND 
RAISE SWO1, THEN START, PROVIDED PARAMETERS HAVE BEEN 
PREVIOUSLY SET UP AS DESCRIBED IN SECTION 4.0. ALSO, 
WHEN A TEST IS SELECTED, ALWAYS START AT THE VERY 
BEGINNING OF THAT TEST. 
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Sw 09 





LOOP ON CURRENT DATA. THIS SWITCH WILL ONLY WORK IF 
CALL "SCOP1" IS IN THAT TEST. THE REASON IS THAT MOST 
TESTS DEAL WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR 
Sti ALL AT ONCE, THUS KNOWN AS BLOCK DATA=-ONE 

PATTERN CAN'T BE SINGLED OUT. (SEE SECTION 4.1.3.8.1) 

4.1.3 SWITCH REGISTER PRIORITIES 


A) ERROR SWITCHES 
1, Sw 12 DELETE PRINT OUT/BELL ON ERROR. 


2. SW 13 DELETE ERROR PRINTOUT. 
te Sw 15 HALT ON THE ERROR. 
5 









SW 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
SW 10 GOTO NEXT TEST(ON ERROR). 


B) SCOPE SWITCHES 


1. SW O09 - (IF ENABLED BY ‘SCOP1") ON AN ERROR.IF AN 
ASTERISK ‘** JS PRINTED IN FRONT OF THE TEST NUMBER 
(EX. *TEST NO. 10), SWO9 IS INCORPORATED IN_ THAT 
TEST AND THEREFORE SWO9 IS USUALLY THE BEST SWITCH FOR 
THE SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SWO8=0). 


IF SWO9 IS NOT ENABELED AND THERE IS A_ *HARD* ERROR 
(CONSTANT ERROR) SwWO8 IS BEST. (SW14=0, Sw10=0, 
SwO9=0, SWO8=1). 


FOR INTERMITTENT ERRORS, SW14=1 WILL LOOP ON TEST 
REGARDLESS OF ERROR OR NO ERROR. (SW14=1, SW10=0, 
SWO9=0, SWO8=1 


2. SW 14 = LOOP ON TEST. WILL LOOP ON TEST UNTIL SWITCH 
1S LOWERED. 


3. Sw 11 - INHIBIT ba! rae (QUICK PASS). ALLOWS ONLY 
ONE PASS THROUGH A TES 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200. THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE DUP11 DIAGNOSTICS. 


NOTE : IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
IS__ UNDER) ACT11 OR XXDP CONTROL AND WILL ACT 
ACCORDINGLY. AFTER *ALL* AVAILABLE DUP11°S ARE TESTED 
THE PROGRAM WILL RETURN TO ‘"XXDP" OR ‘ACT=11". 
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OPERATING PROCEDURE 


WHEN THE PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
SECTION FOUR WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC. 


PROGRAM AND/OR OPERATOR ACTION 
THE TYPICAL APPROACH SHOULD BE 


HALT ON ERROR (VIA SW 15=1) WHENEVER AN ERROR OCCURS. 
. CLEAR Sw 15. 

SET SW 14: (LOOP ON THIS TEST) 

SET SW 13: (INHIBIT ERROR PRINT OUT) 


THE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST), TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT, LOOK IN 
THE LISTING FOR THAT TEST NUMBER ba WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPOR IN THIS WAY THE EXACT 
FUNCTIONING OF THE TEST CAN BE INTERPRETED SINCE THE ERROR PC 
1S THE HLT+2 LOCATION. 


IN SOME TESTS, THERE IS A SUBROUTINE CALL THROUGH A_ REGISTER 
(E.G., JSR R1,FLAG). THE SUBROUTINE DOES THE DATA CHECKING 
FOR THE TEST AND WILL REPORT AN ERROR IF ONE OCCURS. _ THIS 
MEANS THAT THE FAILING TEST COULD BE _ IN ONE PART OF THE 
LISTING WHILE THE SUBROUTINE THAT FOUND THE ERROR IS IN 
ANOTHER PART. TO DETERMINE THE PC OF THE FAILING TEST, CHECK 
THE REGISTER USED BY THE SUBROUTINE. IT WILL CONTAIN’ THE 
RETURN ADDRESS OF THE FAILING TEST. 


ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AV!D 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 
12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
TO THE ERROR MESSAGE WHICH IS TO GIVE THE OPERATOR AN 
INDICATION OF THE ERROR. 


ERROR RECOVERY 


IF FOR SOME REASON "HE DUP11 SHOULD ‘HANG THE BUS’ (GAIN 
agptes OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 

AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU, IF THIS SHOULD HAPPEN LOOK IN LOCATION 
"TSTNO' FOR THE NUMBER OF THE TEST THAT WAS RUNNING AT THE 
TIME OF THE CATASTROPHIC ERROR. THIS GIVES THE OPERATOR SOME 
IDEA AS TO WHAT THE DUP11 WAS DOING AT THE TIME OF THE ERROR. 


Ruin 


SEQ 0007 










7.0 
7.1 































7.2 
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RESTRICTIONS 
STARTING RESTRICTIONS 


SEE SECTION 4 (PLEASE). STATUS TABLE SHOULD BE VERIFIED 
REGARDLESS OF HOW THE PROGRAM WAS STARTED. ALSO, IT IS 
IMPORTANT TO USE THE LISTING ALONG WITH THE INFORMATION 
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS. 


OPERATING RESTRICTIONS 


DUP11 "PARAMETER DIALOG’’ MUST BE RUN ONLY ONCE PRIOR TO_ THE 
FIRST RUNNING OF ANY DUP11 DIAGNOSTIC IF ‘DEFAULT PARAMETERS'' 
ARE NOT USED. IF ONLY DUP11 DIAGNOSTICS WERE LOADED AFTER 
DUP11 PARAMETER SETUP, AND IF CORE MEMORY HAS NOT BEEN 
CHANGED, :.£.,USE OF DIAGNOSTICS OTHER THAN DUP11 DIAGNOSTICS, 
AND IF THERE WERE NO DUP11 CONFIGURATION CHANGES, THE DUP11 


UNNI ER NOR 
OPERATING CONDITIONS IT SHOULD NOT BE NECESSARY TO INPUT NEW 
pt ag TO SUBSEQUENT DIAGNOSTICS, UNLESS A_ CHANGE IS 
U . 


NOTE: AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING THE DEFAULT 
ae ems WHEN THE PROGRAM IS INITIALLY STARTED WITH 


HARDWARE CONFIGURATION RESTRICTIONS FOR THE PURPOSE OF RUNNING 
MULTIPLE DUP11'°S IN CHAIN MODE. 


1. CSR ADDRESSES MUST BE CONSECUTIVE. 
VECTORS ARE CONSECUTIVE IF PARAMETER PROGRAM IS USED. 
ALL JUMPERS ARE ASSUMED TO BE AS SETUP IN PARAMETER 


DIALOG. 
PRIORITY LEVEL MUST BE THE SAME FOR ALL DEVICES. 


WN 
. . 
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MISCELLANEOUS 
EXECUTION TIME 


ALL DUP11 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS" MESSAGE 
(PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
ON THE PDP11 CPU CONFIGURATION. 


PASS COMPLETE 


NOTE: *EVERY* TIME THE PROGRAM IS STARTED, THE TESTS WILL RUN 
AS IF SwW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO VERIFY 
NO *HARD* ERRORS AS SOON AS POSSIBLE. THEREFORE THE FIRST 
PASS--EACH TIME PROGRAM IS _ STARTED--WILL BE A ‘QUICK PASS' 
UNTIL ALL _DUP11'S IN SYSTEM ARE TESTED. WHEN THE DIAGNOSTIC 
HAS COMPLETED A PASS WITH THE NORMAL ITERATION COUNT 
oY pla Lh THE FOLLOWING IS AN EXAMPLE OF THE PRINT OUT TO 


END PASS CZDPD_ CSR:160050 VEC:300 PASSES:000001 ERRORS :000000 


NOTE : THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE 
VALUES FOR THE DEVICE. THEY ARE ONLY FOR THiS 


EXAMPLE. 

KEY LOCATIONS 

RE TURN CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 

NEXT CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PERFORMED. 

TSTNO CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 

RUN THE BIT I’ *RUN' ALWAYS POINTS ONE PAST THE 


DUP11 CURRENTLY BEING TESTED. EXAMPLE: (RUN) 
/0000000001000000 MEAAS THAT DUP11 NO.05 IS 
THE DU?11 NOW RUNNING, 


DUPCROO-DUPCRO7 

(7500)-(1560) THESE LCCATIONS CONTAIN THE INFORMATION “te 
TO. TEST UP TO 8 (DECIMAL) DUP11S SEQUENTIALY 
THEY CONTAIN THE CSR, VECTOR AND — STATUS 
CONCERNING THE CONF 1 GURAT 1044 OF EACH puPii. 


DUPACTV EACH BIT SET _IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED DUP11 WILL BE TESTED IN TURN. 
EXAMPLE: _ (DUPACTV) /0000000000011111 MEANS 
THAT DUP11 NO. 00,01,02,03,04 WILL BE TESTED. 


fe 


SEQ 0009 
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EXAMPLE:  (DUPACTV) ve aie ME ANS 
THAT DUP11 NO. 00,04 WILL BE TES 


RXCSR CONTAINS THE RECEIVER CSR OF THE CURRENT DUP11 
UNDER TEST. 


MORE ON THAT ‘STATUS TABLE’ (1500-1560) 
"MAP OF DUP11 STATUS' 

1500 160050 

1502 600300 

1504 140000 
THE ABOVE INFORMATION WILL BE REPEATED FOR EACH OF UP TO 8 
DUP11"S IN THE SYSTEM (THESE WILL FOLLOW UNDER THIS TABLE). 
EXPLANATION: 


1500 160050 THIS IS THE SYSTEM CONTROL REGISTER FOR THE 
1ST DUP11 IN THE SYSTEM. 


1502 000300 THIS IS VECTOR ‘A* FOR THE FIRST DUP11 IN’ THE 
SYSTEM. 

1504 140026 THIS REPRESENTS SYNC AND SOFTWARE STATUS FOR 
THE FIRST DUP. 

THE BITS ARE AS FOLLOWS: 


OPTIONAL CLEAR JUMPER IN 
TURNAROUND CONNECTOR ON 


—t 9 — — 2 


5 
4 
3 
2 
1 
0 
09 
8 


08 SET: 
07-00 SYNC CHARACTER FOR DECMODE TESTS. 


THE ret IS “ae FOR EACH DUP11 IN THE SYSTEM. THE TABLE 

EFAULT PARAMETERS OR BY THE MANUAL PARAMETER 

ALSO, IF DESIRED BY _ THE 

USER - THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 

SUIT THE SPECIFIC CONFIGURATION, THUS MAKING EACH DEVICE MAP 

DIFFERENT. IT IS THE RESPONSIBILITY OF THE OPERATOR TO VERIFY 
THE DATA IN THE MAP. 


METHOD OF DEVELOPING DEFAULT PARAMETERS 

DEFAULT PARAMETER ASSUMPTIONS 

TOO MUCH HARDWARE WOULD HAVE TO BE ANALYZED TO SIZE THE THE 
PARAMETERS. THE PROGRAM MUST ASSUME THE VARIATIONS. THE 


RESULT, IF NOT TO YOUR SPECIFIC CONFIGURATION, MAY BE _ ALTERED 
BY HAND (TOGGLE IN) AS DESIRED. IN THIS WAY 95% OF THE 
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PARAMETER SETUP WAs DONE BY THE PROGRAM AND 5% BY YOU. 
THEREFORE : 
1) ALL JUMPERS ARE ASSUMED TO BE IN THE FOLLOWING 
CONF 1 GURAT ION. 
IN OuT 
W1=SECONDARY REC ENABLE xX 
W2=SEC REC DISABLE x 
W3=CLEAR OPTION K 
W4=SEC TX ENABLE x 
wW5=DSC A CONTROL ‘ 
WO=A+B DS CONTROL K 
W7=BUS GRANT CONTROL x 


2) THE H325 TURN AROUND CONNECTOR IS ASSUMED TO BE ON. 


3) THE MANUFACTURING OPTION CSR OF 160050 AND VECTOR OF 770 
ARE USED. 


4) THE BR LEVEL IS ASSUMED TO BE 5. 
IN ALL ADJUSTMENTS PLEASE REFER TO SECTION 8.4 FOR GREATER 
DETAIL. 
9.0 CHANGE HISTORY 
NOTE: HISTORY STARTS WITH REV. DO 


CZDPDDO - IN RECEIVER INT. SERVICE ROUTINE OF TEST 12, LOC. 013174 
CONTAINED 032715, SHOULD BE 32705. 


1 
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CZDPDD.P11 25-JUL=79 15:01 INTRODUCTION TO DUP11 DIAGNOSTIC SEQ 0012 


:*CZDPDDO /<377>/DUP11_ SDLC DECMD TST 
:*COPYRIGHT(C) 1975,1979, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 


te we ee we Oe ee eR ee ee eR ee Hee ee ee ee ee Ce Hee eee ee 


STARTING PROCEDURE 


;LOAD PROGRAM 

;LOAD ADDRESS 000200 

sPRESS START 

PROGRAM WILL TYPE ‘‘CZDPDDO /<377>/DUP11 SDLC DECMD TST ‘' 
;PROGRAM WILL TYPE 'R’' TO INDICATE THAT TESTING HAS STARTED 
:AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
AND THEN RESUME TESTING 





555 SWITCH REGISTER OPTIONS 
3 gimme 
558 100000 SW15=100000 :=1,HALT ON ERROR 
559 0000 SwW14=40000 :=1,LOOP ON CURRENT TEST 
020000 SW13=20000 7=1, INHIBIT ERROR _TYPEOUT 
561 010000 SW12=10000 ;=1,DELETE TYPEOUT/BELL ON ERROR 
562 000 SW11=4000 :=1, INHIBIT _ITERATI 
563 002000 Sw10=2000 :=1,ESCAPE TO NEXT TEST ON ERROR 
5 001000 SWO9=1000 :=1,LOOP WITH CURRENT DATA 
565 00 Sw08=40 :=1,LO0P ON ERROR 
566 000200 Sw07=200 
567 000100 Sw06=100 
5 0 Sw05=40 
569 000020 $W04=20 
570 000010 Sw03=10 SELECT DUP*S DESIRED ACTIVE 
571 NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 
572 000004 Sw02=4 ;LOCK ON TEST SELECT 
573 000002 Sw01=2 RESTART PROGRAM AT SELECTED TEST 


574 000001 SwOO=1 ;ENTER PARAMETERS 
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GENERAL DEFINITIONS AND EQUIVALENCIES 


REGISTER DEFINITIONS 


RO=%0 GENERAL REGISTER 
R1=%1 ;GENERAL REGISTER 
R2=%2 ;GENERAL REGISTER 
R3=%3 GENERAL REGISTER 
R4=%4 ;GENERAL REGISTER 
R5=%5 ;GENERAL REGISTER 
SP=%6 :PROCESSOR STACK POINTER 
PC=%7 [PROGRAM COUNTER 


;LOCATION EQUIVALENCIES 


PS=177776 ;PROCESSOR STATUS WORD 
STACK=1150 START OF PROCESSOR STACK 


; INSTRUCTION DEF INI TIONS 


PUSH1SP=5746 ;DECREMENT PROCESSOR STACK ; WORD 
POP1SP=5726 7 INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10046 7SAVE RO ON STACK 
POPRO=12600 RESTORE RO FROM STACK 
PUSH2SP=24646 ;DECREMENT STACK TWICE 
POP2SP=22626 : INCREMENT STACK TWICE 
-EQUIV EMT,HLT :BASIC DEFINITION OF ERROR CALL 

) 


BIT15= =180000 


4=2 
3=1 
2=4 
1=2 
0=1 


SEQ 0013 


B 2 
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CEDPDDPI1 «—-25eguL-79°15:01 TRAPCATCHER FOR UNEXPECTED INTERUPTS SEO 0014 
625 PERERA RRA ERE ARR A REAR ERARRERRARERREREERARRRERRR REE EREER HERE ERE 
626 fr rn ern nn enn nnn nnn nnn nnn ene eeeee-== 
627 : TRAPCATCHER FOR ILLEGAL INTERRUPTS 
628 THE STANDARD "TRAP CATCHER’ IS PLACED 
629 :BETWEEN ADDRESS 010 ADDRESS 776. 
630 “IT LOOKS LIKE 'PC+2 HALT 
632 . ‘ment nate eRe nN ata area eit 
633 
634 000000 _=0 
635 STANDARD INTERRUPT VECTORS 
636 each 
637 
638 000024 1-26 
639 000024 005050 _PFAIL POWER FAIL HANDLER 
640 000026 000340 340 “SERVICE AT LEVEL 7 
641 000030 004350 "HLT “ERROR HANDLER 
642 000032 000340 340 “SERVICE AT LEVEL 7 
643 000034 004316  TRPSRV “GENERAL HANDLER DISPATCH SERVICE 
644 000036 000340 $40 “SERVICE AT LEVEL 7 
645 000040 40 
646 000040 000000 0 SAVE FOR ACT-11 OR DDP2 
647 000042 000000 0 RETURN ADDRESS IF UNDER ACT=-11 OR DDP2 
648 000044 000000 0 “SAVE FOR ACT-11 OR DDP 
649 000046 003104 SENDAD “FOR USE WITH ACT-11 OR DDP2 
650 000052 aS? 
651 000052 000000 0 :ACT=11 PROGRAM CHARACTERISTICS 
653 000174 (2174 
654 000174 000000 DISPREG:0 SOFTWARE DISPLAY REGISTER 
655 000176 SWREG: 0 SSOFTWARE SWITCH REGISTER 
656 000200 °=200 
657 000200 000137 001562 JMP “START GO TO START OF PROGRAM 
659 
460 001000 _=1000 
661 001000 005377 055103 050104 MTITLE: .ASCIZ <377><12>/CZDPDDO /<377>/DUP11 SDLC DECMD TST /<377> 
662 001200 -=1200 ; 
663 :SWR AND LIGHTS 
eee {ower eeenescenen 
666 001200 177570 DISPLAY: 177570 :11/45 CONSOLE LIGHTS 
667 001202 177570 SWR: 177570 “INDIRECT POINTER TO SWITCH REGISTER 
669 INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 
671 3 
672 001204 177560 TKCSR: 177560 TELETYPE KEYBOARD CONTROL REGISTER 
673 001206 177562 TKDBR: 177562 “TELETYPE KEYBOARD DATA BUFFER 
674 001210 177566 TPCSR: | 177564 “TELEPRINTER CONTROL REGISTER 
675 001212 177566 TPDBR: 177566 “TELEPRINTER DATA BUFFER 
677 :PROGRAM CONTROL PARAMETERS 


. = 
CZDPD-DO MACY11 30a(1052) 25-JUL-=79 15:19 PAGE 16 
CZDPDD.P11 25-JUL=79 15:01 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. . SEQ 0015 
680 001214~ 000000 RETURN: 0 SCOPE ADDRESS FOR LOOP ON TEST 
681 001216 000000 NEXT: OQ ;ADDRESS OF NEXT TEST TO BE EXECUTED 
682 0012 000000 LOCK: 0 ‘ADDRESS FOR LOCK ON CURRENT DAT 
683 001222 000001 ICOUNT: 1 ‘NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
001224 000000 LPCNT: 0 NUMBER OF ITEREATIONS COMPLETED 
685 001226 000000 TSTNO: O NUMBER OF TEST IN 
686 1 000000 PASCNT: 0 ;NUMBER OF PASSES COMPLETED 
687 001232 000000 ERRONT: 0 ; TOTAL NUMBER OF ERRORS 
= 001234 000000 LSTERR: 0 “PC OF LAST ERROR CALL 
690 PROGRAM VARIABLES 
§90 {oe 
693 001236 000000 TEMP1: 0 : TEMPORARY STORAGE 
001240 000000 TEMP2: 0 ; TEMPORARY STORAGE 
695 001242 000000 TEMP3: 0 : TEMPORARY STORAGE 
696 001244 000000 TEMP4: 0 : TEMPORARY STORAGE 
697 001246 000000 TEMPS: 0 : TEMPORARY STORAGE 
698 OC" 000000 SAVRO: 0 [RO STORAGE 
699 001252 000000 SAVR1: 0 :R1 STORAGE 
001254 000000 SAVR2: 0 :R2 STORAGE 
701 001256 000000 SAVR3: 0 7R3 STORAGE 
702 001260 000000 SAVR4: 0 7R4 STORAGE 
703 001262 000000 SAVRS: 0 RS STORAGE 
001264 000000 SAVSP: 0 TACK POINTER STORAGE 
705 001266 000000 SAVPC: 0 ;PROGRAM COUNTER STORAGE 
707 001270 000000 SAVROA: 0 :RO STORAGE 
708 001272 000000 SAVRIA: 0 1 STORAGE 
001274 000000 SAVR2A: 0 ‘Ro STORAGE 
710 001276 000000 SAVR3A: 0 :R3 STORAGE 
711 000000 SAVR4A: 0 :R4 STORAGE 
712 001302 000000 SAVRSA: 0 :R5 STORAGE 
713 001304 000000 SAVSPA: 0 : STACK POINTER STORAGE 
ae 001306 000000 SAVPCA: 0 PROGRAM COUNTER STORAGE 
716 001310 000001 ; DUPACTV: .BLKB 1 ;DUP11"S SELECTED ACTIVE. 
717 001311 000001 DUPNUM: .BLKB 1 R DUP11' 
718 001312 000001 SAVACT: .BLKB 1 
719 001313 000001 SAVNUM: .BLKB 1 
720 001314 000001 RUN BLKB 1 
721 001316 . EVEN 
722 001316 001500 CREAM: DUP.MAP ; TABLE POINTER. 


;OCTAL NUMBER OF 3. 
SORIGINAL ACTV. DEVICES. 

; WORKABLE NUMBER. 

:POINTER ONE PAST RUNNING DEVICE. 


CZDPD-DO 
CZ2DPDD.P11 


MACY11 TP haat 
25-JUL=79 75:01 


D2 
ROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


slags 15:19 PAGE 17 


; CONTROL REGISTER DEFINITIONS 


-RXCSR BIT DEFINITIONS 
DSCA=B1T15 :DATA SET CHANGE A 
RING=BIT14 tR NG | 
CTS=B1T13 :CLR TO SEND 
CARDET=BIT12 < CARRIER DETECT 
RECACT=B1111 sREC ACTIVE 
SRD=B1T10 sSEC REC DATA 
DSR=B1T9 ‘DATA SET RDY 
STPSYN=B1T8 :ST RIP SYNC 
RXDONE =81 T7 REC DONE 
RINTEN=B] T6 “REC INTR ENABLE 
DSINTE=BITS ‘DSC INTR ENABLE 
RCVEN=B1 74 [REC ENABLE 
STD=BI1T3 :SEC XMIT DATA 
RTS=BIT2 [REQ TO SEND 
DTR=B1T1 :DATA TERM RDY 
DSCB=B1T0, ATA SET CHANGE B 
RXDBUF BIT DEF INIT ONS 
RXDERR=81115 REC DATA ERROR 
OVRRUN=81714 “OVERRUN ERROR 
CRCERR=B1T12 :CRC ERROR 
RABORT=B1T10 sREC ABORT 
REOM=81 T9 sREC END OF MESSAGE 
RSOM=B1T8 *REC START OF MESSAGE 
:PARCSR BIT DEFINITIONS 
DECMOD=B1T15 ;DEC MODE (DECMP) 
CRCEN=B1T9 CRC ENABLE 
PRISEC=81 12 PRI/SEC SELECT 
TXCSR BIT DEF INI TION 
TXDLAT=Bi715 X DATA LATE 
MTDATA=B1114 MAINT DATA OUT 
CLK=81T13 CLK 
MMODEB=81T12 “MAINT MODE 8 
MMODEA=81711 MAINT MODE A 
BI TWw=B1T10 [BIT WINDOW INPUT 
TXACT=B1T9 :TX ACTIVE 
MRESET=B1T8 “MASTER RESET 
TXDONE =81 17 >XMIT DONE 
TXINTE=81 76 IT DONE INTR ENABLE 
SEND=81T4 ND 
HDXEN=B1 73 HDX/F DX 
:TXCSR WRD DEFINITIONS 
USER=0 ;USER MODE 
MMODE =14000 MAINT INT MODE 
MEXT=10000 ‘MAINT EXT MODE 
SYSTST=4000 ‘SYSTEM TEST MODE 
:TXDBUF BIT DEFINITIONS 
RCRC7T=B1T15 
RCRCIN=B1T14 
TCRC7T=BIT13 
TCRCIN=BIT12 


SEQ 0016 


CZDPD-DO MACY11 eye? 25-JUL=79 15:19 PAGE 18 


CZDPDD.P11 25=JUL=79 15:01 PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. SEQ 0017 
779 004000 TIMER=BIT11 MAINTENANCE TIMER 
780 002000 TABORT=B1T10 ; TRANSMIT ABORT 
781 001000 TEOM=B1T9 ; TRANSMIT END OF MESSAGE 
re 000400 TSOM=B1T8 : TRANSMIT START OF MESSAUE 
re MISC. PROGRAM DEFINITIONS 
786 001320 000000 PRIRTY:.WORD 0 
787 C0i322 000001 TCNFLG: .BLKB 1 
788 001323 000001 OPCLRJ: .BLKB 1 
789 001324 000000 DATA WORD 0 
790 001326 000000 SHIFTS: .WORD 0 
791 001330 000000 MIND WORD 0 
792 001332 FLAG: WORD 0 
793 001334 000001 STJMFL: .BLKW 1 
he. 001336 900001 SRIMFL: .BLKW 7 


CZDPD-D 
CZDPDD. 


0 
P11 


001344 
001 344 
001346 
001350 
001352 
001354 
001356 
001360 
001 362 
001364 
001366 
001370 
001372 


MACY11 me hee 
25=-JUL=79 15:01 


090000 


25-JUL=79 15:19 PAGE 19 


F 
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PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 


;PROGRAM CONTROL FLAGS 


INIFLG: .BYTE 
ERRFLG: .BYTE 
LOKFLG: .BYTE 
QV.FLG: .BYTE 
.EVEN 

$y=0 


;PROGRAM INITIALIZATION FLAG 

ERROR OCCURED FLAG 

;LOCK ON CURRENT TEST FLAG 

;QUICK VERIFY FLAG. 

;ON FIRST PASS OF EACH DUP11 ITERATIONS 
WILL BE SUPPRESSED 


;DEFINITIONS FOR TRAP SUBROUTINE CALLS 
;POINTERS TO SUBROUTINES CAN BE FOUND 
3 IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


3 MeAAAAASRALARASLSAASLARSAASASRARASARSASERARSRRARE RARER RARRRRRR SSSR RAS RRS RES S| 


" TRPTAB: 
SCOPE =TRAP+0 


- SCOPE 
SCOP1=TRAP+1 

- SCOP1 
TYPE=TRAP+2 

. TYPE 
INSTR=TRAP+3 

. INSTR 
INSTER=TRAP+4 

. INSTER 
PARAM=TRAP+5 

. PARAM 
SAVO5=TRAP+6 

- SAV’ 
RESO5=TRAP+7 

-RESOS 
CONVRT=TRAP+10 

. CONVRT 
CNVRT= STRAB STI 
Papcgptiane “4: P 
SETFLG= rhapst3. 
- SETF 


SCOPE LOOP AND ITERATION HANDLER 
LOOP ON CURRENT DATA HANDLER 
TELETYPE OUTPUT ROUTINE 

ASCII STRING INPUT ROUTINE 

INPUT ERROR HANDLER 

NUMERICAL DATA INPUT ROUTINE 
REGISTER SAVE ROUTINE 

REGISTER RESTORE ROUTINE 

DATA OUTPUT ROUTINE 

DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
CLOCK ROUTINE 

TELETYPE INPUT ROUTINE 


. 
2 ieee eee RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RR RRR RR ARR RRR SES OD | 


SEQ 0018 
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010 
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oO 


oO 
OOCCCOOo COO CGOCOO 
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PROGRAM PARAMETERS, VARIABLES, 


G 2 


AND TRAP CALLS. 


;DUP11 VECTOR AND REGISTER INDIRECT POINTERS 


POINTER 


[POINTER 
POINTER 


DUP11 RECEIVER INTERRUPT VECTOR 


E 
DUP11 TRANSMITTER INTERRUPT SERVICE PS 
DUP 11 RECEIVER Melle on ER 
DUP11 RECEIVER DATA BUFFER 
DUP11 PARAMETER STATUS REGISTER 
DUP11 TRANSMITTER STATUS REGISTER 
DUP11 TRANSMITTER DATA BUFFER 
UP11 SECONDARY REGISTER SELECT REGISTER 
PARAMETER STATUS HIGH BYTE 
RECEIVER BUFFER HIGH BYTE 
RECEIVER CONTROL REG HIGH BYTE 
TRANSMITTER BUFFER HIGH BYTE 
TRANSMITTER CONTROL REG HIGH BYTE 


;DUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST 


: .BYTE 000 
-BYTE 8. 
: 000000 





;LAST CHAR TO TEST AND PARITY MASK 
NUMBER OF 


; PARAME TERS 


CLOCKS NEEDED FOR ONE CHAR 


SEQ 0019 


CZ7DPD= 


DO 
CZDPDD. 


MACY11 PP taal 
P11 25~JUL=79 15:01 


25=JUL=79 
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PROGRAM PARAMETERS, VARIABLES, 


H 2 
AND TRAP 


;DUP11 STATUS TABLE AND ADDRESS 


DUPTRO: .BLKW 
DUPO.A: .BLKW 


DUPCR1: .BLKW 
DUPTR1: .BLKW 
DUP1.A: .BLKW 
DUPCR2: .BLKW 
DUPTR2: .BLKW 
DUP2.A: .BLKW 
DUPCR3: .BLKW 
DUPTR3: .BLKW 
DUP3.A: .BLKW 
DUPCR4: .BLKW 
DUPTR4: .BLKW 
DUP4.A: .BLKW 
DUPCRS: .BLKW 
DUPTRS: .BLKW 
DUPS.A: .BLKW 
DUPCR6: ..BLKW 
DUPTR6: .BLKW 
DUP6.A: .BLKW 
DUPCR7: .BLKW 
DUPTR7: .BLKW 
DUP7.A: .BLKW 
DUP .END: 


000000 


; CONTROL STATUS 
;VECTOR ‘'A’' FOR 
;PARAMETER FOR 


; CONTROL | bdalh 
:VECT OR ° FOR 
‘ PARAMETER FOR 


+ CONTROL STATUS 
VECTOR ‘'A’’ FOR 
“ PARAMET ER FOR 


CONTROL STATUS 
;VECTOR ‘‘A’' FOR 
;PARAMETER FOR 


CONTROL STATUS 
;VECTOR ‘‘A’' FOR 
;PARAMETER FOR 


= CONTROL | sane 

CTOR ' FOR 
: PARAMETER FOR 
; CONTROL STATUS 
VECTOR ‘‘A’' FOR 
;PARAMETER FOR 
CONTROL STATUS 


VECTOR ‘‘A’' FOR 
;PARAMETER FOR 


CALLS. 
ASSIGNMENTS 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


REGISTER FOR 
DUP11 


NUMBER 1 


DUP11 NUMBER 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


SEQ 0020 
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15 14 13 12 17 10 09 08 O7 06 O05 04 O03 O02 01 00 


Se ee mee ee ee ee ee ee ee ee ee ee ee eee He He ee 


I I I rs esa I I I A- OPTIONAL CLEAR JUMPER IN=1 
CRISS CTP LEC? TSCA Te. f.hUmGTlUU LUD Se eG B= TURNAROUND CONNECTOR ON=1 
I I ] I I I ] I I *. 


CZDPD~DO 
CPDPDD. P11 


MACY11 oS ine 


25=JUL=79 


012737 


012737 
013746 


15:01 


001710 
177274 


000176 
000174 


000004 
000006 
001340 
003104 
001000 
001340 
177210 
002520 
000001 


002360 
Roi aae 


00000 
001500 
001560 


25=JUL=79 


177776 


000024 
001313 


000042 


177174 


001340 


J 2 
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PROGRAM INITIALIZATION AND START UP. 


;PROGRAM_ INITIALIZATION 

;LOCK OUT INTERRUPTS 

4: UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 

CLEAR PROGRAM CONTROL FLAGS AND 
; TYPE TITLE MESSAGE 


COUNTS 


.START: MOV #340,PS :LOCK OUT INTERRUPTS 
MOV ASTACK, SP “SET UP STACK 
MOV #.PFAIL, af24 :SET UP POWER FAIL VECTOR 
MOVB — DUPNUM, SAVNUM ‘SAVE NUMBER OF DEVICES IN SYSTEM 
CLR PASCNT [CLEAR PASS COUNT 
CLRB — ERRFLG “CLEAR ERROR FLAG 
CLRB = QV. FLG SZERO QUICK VERIF1 FLAG 
MOV ADUP MAP, CREAM 7GET MAP POINTER 
MOVB #1, RUN ‘POINT POINTER TO FIRST DEVICE. 
CLR ERRCNT *CLEAR ERROR COUNT 
CLR LSTERR [CLEAR LAST ERROR POINTER 
MOV #1,TSTNO ‘SET UP FOR TEST 1 
MOV #. START ,RETURN :SET UP FOR POWER FAIL BEFORE 
STESTING STARTS 
MOV a6, -(SP) :SAVE CURRENT VECTORS 
MOV a4 ,-(SP) : 
MOV #12$,a44 :SETUP FOR TIMEOUT 
TST aswR REF ERENCE HARDWARE SWITCH REG 
BR 3$ “BR IF IT EXISTS 
12$: MOV #SWREG, :POINT TO SOFT SwR 
MOV ISPREG,DISPLAY. :POINT TO SOFT DISPLAY REG 
CMP (SP) +, (SP) + *ADJUST STACK 
13$: = MOV (SP) +, a4 ‘RESTORE VECTORS 
MOV (SP) +. awe : 
TSTB —sCINIFLG SHAS INITIALIZATION BEEN PERFORMED 
BEQ 1$ 
118: CMP WSENDAD,@442 = IF ACT-11 AUTO MODE, 
BEQ ‘DON'T TYPE ID 
TYPE MTITLE : TYPE TITLE MESSAGE 
COMB) ~—sNIFLG ‘IF NOT SET FLAG AND DO 
6$: TSTB  aSwR *BIT?=12? 
BPL 10$ 
JMP 1$ 
10$: 
BIT #SwOO, aSwR sENTER PARAMETERS 
BNE .+6 YES 
JMP 21$ NO 
COMB ~—s« FLAG 
MOVB #1, INIFLG :SET TO MANUAL ENTRY 
MOV #DUP MAP ,RO ‘CLR MAP 
68$: CLR (RO) + 
CMP RO, DUP. END :DONE WITH MAP? 
BNE ‘BR IF NO 
INSTR — ; OUTPUT MESSAGE g CET INPUT STRING 
MCSR SSAG 
PARAM : CONVERT STRING 
160000 :LOw LIMIT 


SEQ 0022 


K 2 
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CZ2DPDD.P11. = 25=JUL=79 15:01 PROGRAM INITIALIZATION AND START UP. SEQ 0023 
990 002052 175500 175500 ;:HIGH LIMIT 
991 002054 001500 DUPCRO :STORE AT THIS LOCATION 
| 92 002056 001 .BYTE 1 “MASK 
993 002057 001 "BYTE 1 ‘HOW MANY TIMES + 2 
994 002060 104403 INSTR :OUTPUT MESSAGE & GET INPUT STRING 
995 002062 005512 MVEC  :MESSAGE 
996 002064 104405 PARAM :CONVERT STRING 
997 002066 000300 300 [LOW LIMIT 
998 002070 000770 770 [HIGH LIMIT 
999 002072 001502 DUPTRO :STORE AT THIS LOCATION 
1000 002074 001 .BYTE 1 *MASK 
1001 002075 001 "BYTE 1 ‘HOW MANY TIMES + 2 
1002 002076 104403 INSTR OUTPUT MESSAGE & GET INPUT STRING 
1003 002100 005702 MPAR _ : MESSAGE 
1904 002102 104405 PARAM :CONVERT STRING 
1005 002104 000004 4 :LOW LIMIT 
1006 002106 000007 7 [HIGH LIMIT 
1007 002110 001240 TEMP2 :STORE AT THIS LOCATION 
1008 002112 000 .BYTE 0 MASK 
1009 002113 001 "BYTE 1 ‘HOW MANY TIMES + 2 
1010 002114 013737 001240 001320 MOV TEMP2,PRIRTY  ;SAVE PRIORITY 
1011 002122 104403 INSTR ; OUTPUT MESSAGE & GET INPUT STRING 
1012 002124 005647 MTOTAL SAG 
1013 002126 104405 PARAM :CONVERT STRING 
1014 002130 000001 1 [LOW LIMIT 
1015 002132 000010 8. [HIGH LIMIT 
1016 002134 001236 TEMP1 STORE AT THIS LOCATION 
1017 002136 000 .BYTE 0 
1018 002137 001 "BYTE 1 “HOW MANY TIMES + 2 
1019 002140 104403 INSTR [OUTPUT MESSAGE & GE1 INPUT STRING 
1020 002142 005525 MJMPR MESSAGE 
1021 002144 104413 SETFLG :SET FLAG BASED UPON INPUT STRING 
1022 002146 001323 OPCLRJ :THIS FLAG 
1023 002150 104403 INSTR : OUTPUT MESSAGE & GET INPUT STRING 
1024 002152 005600 MTCN SAGE 
1025 002154 104413 SETFLG SET FLAG BASED UPON INPUT STRING 
1026 002156 001322 TCNFLG :THIS FLAG 
1027 002160 105737 001322 TSTB. —«TCNFLG 
1028 002164 001410 BEQ 71$ 
1029 002166 104403 INSTR  ;QUTPUT MESSAGE & GET INPUT STRING 
1030 002170 005726 MSiJM MESSAGE 
1031 002172 104413 SETFLG :SET FLAG BASED UPON INPUT STRING 
1032 002174 001334 STUMFL THIS FLAG 
1033 002176 104403 INSTR OUTPUT MESSAGE & GET INPUT STRING 
1034 002200 005761 MSRJM  :MESSAGE 
1035 002202 104413 SETFLG :SET FLAG BASED UPON INPUT STRING 
1036 002204 001336 SRJMFL :THIS FLAG 
1037 002206 105737 001323 71$:  TSTB  OPCLRJ 
1038 001403 BEQ 


69$ 
wes tee DUPO.A 
ore 


0$ 
#B1T14,DUPO.A 
#1, SAVACT 
TEMP 


1,DUPNUM 
TEMP1 , SAVNUM 





DO MACY11 6 he 
DPDD.P11 25-JUL=79 15:01 


005337 - 
04 


001236 


RSE WNAWWSSLRAS 


25-JUL=79 


000002 
000004 
001320 


001236 
001240 


001236 


65$: 


64$: 


67$: 


21$: 


66$: 


16$: 
5$: 


L 2 


15:19 PAGE 25 
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TEMP1 

64$ 

SAVACT 

65$ 

SAVACT,TEMP2 :# OF TIMES 

SAVACT ,DUPACTY 

TEMP2 

#DUPCRO,RO 

#DUPCR1.R1 

TEMP2 

66$ 

(RO) +, (R1) 

#10, (R1)+ iCSR 

(RO) +, (R1) 

#10, (R1)+ : VECTOR 

(ROS +, (R1)+ s PARAME TERS 

#DUP.MAP RO :SETUP TO CLEAR MAP 
(RO) + ;CLEAR 

RO, ADUP. END ?CHECK FOR FINISH 

0$ ‘BR IF MORE TO GO 
#DUP.MAP RO >SETUP TO DEFAULT 
#160030, (RO) ‘LOAD CSR 

#770,2(RO) [LOAD VECTOR 

At Toe 4(RO)  =LOAD PARAMETERS AND SYNC 
#5,.PRIRTY [LOAD PRIORITY 

#1_R TSAVE CORE THIS WAY 
RO. DUPACTV [PRESET PROGRAM CONTROLS 
RO. SAVACT ‘DITTO 

RO. SAVNUM “DITTO 

RO. TCNFLG ‘DITTO 

RO.OPCLRJ ‘DITTO 

,XHEAD ; TYPE HEADER 
#DUP .MAP, TEMP1 [SET POINTER 
aTEMP1, TEMP2 SSET DATA 

1$ TALL DONE WITH DATA 
#2, TEMP1 ‘UPDATE POINTER 


‘a ere RUNNING UNDER MONI TOR 
SELECT SPECIFIC DEVICES?? 

BR IF NO. 

i TYPE THE MESSAGE. 


SEQ 0024 
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CZDPDD.P11 25-JUL=79 15:01 PROGRAM INITIALIZATION AND START UP. SEQ 0025 
1102 Qvu2570 005000 CLR RO ;ZERO DATA LIGHTS 
1103 002572 990000 HALT WAIT FOR USER TO TELL WHAT DEVICES TO RUN 
1106 002574 127737 176402 001312 CMPB @SWR,SAVACT 1S THE NUMBER VALID? 
1105 002602 101404 BLOS 7BR IF NUMBER IS OK. 
1106 002604 104402 005254 TYPE »MERRS :; TELL USER OF INVALID NUMBER. 
1107 002610 HALT STOP EVERY THING. 
1108 000776 BR ome [RESTART THE PROGRAM AGAIN. 
1109 002614 117737 176362 001310 2$: MOVB sumat ot | 3GET NEW DEVICE PATTERN 
1110 002622 113700 001310 MOVB DUPACTV RO SHOW THE USER WHAT HE SELECTED. 
1111 002626 042700 177400 BIC #*(<377>,RO ;USE ONLY LOW BYT 
1112 002632 000000 HALT [CONTINUE DYNAMIC SWITCHES. 
1113 300 3$: MOV #300,R0 PREPARE TO CLEAR THE FLOATING 
1114 002640 012701 000302 MOV #302,R1 ;VECTOR AREA. 300-77 
1115 644 010120 4$: MOV R1,(RO)+ START PUTTING 'PC+2 = HALT"’ 
1116 5021 CLR (R1)+ ;IN VECTOR AREA. 
1117 002650 022021 CMP (RO)+,(R1)+ POP POINTERS 
1118 22700 001000 CMP #1000, sALL DONE?? 
10 002656 001372 BNE 4$ ;BR IF NO 
1121 TEST START AND RESTART 
1198 an cregE Or, 
1124 002660 012737 000340 177776 .BEGIN: MOV #340,PS ;LOCK OUT INTERRUPTS 
1125 002666 012706 001150 MOV STACK, SP SET UP STACK 
1126 002672 005737 000042 TST ase 1S PROGRAM UNDER MONITOR CONTROL 
1127 002676 001023 BNE 2s BR IF YES 
1128 002700 032777 000004 176274 BIT #B1T2,aSwR CHECK FOR LOCK ON TEST 
1129 002706 001411 BEQ 1$ :BR_IF NO LOCK DESIRED. 
1130 002710 104402 005312 TYPE -MLOCK TYPE LOCK SELECTED. 
1131 002714 012737 000240 003174 MOV #NOP ,TTST sADJUST SCOPE ROUTINE. 
1132 002722 012737 000240 003176 MOV #NOP ,TTST+2 SET UP TO LOCK 
1133 002730 000406 BR 2s [CONTINUE ALONG. 
1134 002732 013737 003306 003174 1$: MOV BRW,TTST [PREPARE NORMAL SCOPE none 
1135 002740 013737 003310 003176 MOV BRX ,TTST+2 LOCK | SELECTED, SET UP FOR NORMAL SCOPE LOOP 
1136 002746 012737 006224 001214 2$: MOV #CYCLE RETURN i START “CYCLE’’ FIND WHICH DEVICE TO TEST 
1137 002754 104402 005202 TYPE -MR TYPE ” 
1138 002760 000177 176230 JMP @RE TURN ; START TESTING 


CZDPD=DO MACY11 "ee lyse? 25-JUL=79 15:19 PAGE 27 
CZDPDD.P11 25-JUL=79 15:01 END OF PASS ROUTINE SEQ 0026 
1139 ;END OF PASS 
1140 ; TYPE NAME OF TEST 
1141 [UPDATE PASS COUNT 
1142 CHECK FOR EXIT TO ACT=11 
iter SRESTART TEST 
1145 64 001234 -EOP: CLR LSTERR CLEAR LAST ERROR PC 
1146 002770 105037 001341 CLRB ERRFLG [CLEAR ERROR FLAG 
1147 002774 005237 001230 INC PASCNT UPDATE PASS COUNT 
1148 013777 001230 176172 MOV PASCNT ,@DISPLAY ;DISPLAY PASS COUNT 
1149 104402 005157 TYPE -MEPASS : TYPE END PASS 
1150 003012 104402 005341 TYPE eMCSRX ; TYPE CSR 
1151 003016 104411 003130 CNVRT ,XCSR IT 
1152 003022 104402 005347 TYPE oMVECX ; TYPE VECTOR 
1153 3026 104411 003136 CNVRT ,XVEC SHOW IT 
1154 003032 104402 005355 TYPE -MPASSX STYPE PASSES 
1155 003036 104411 003144 CNVRT ,XPASS SHOW IT 
1156 003042 104402 005366 TYPE »MERRX ; TYPE ERRORS 
1157 003046 104411 003152 CNVRT ,XERR IT 
1158 003052 105337 0013135 DECB SAVNUM SARE ALL DEVICES TESTED? 
1159 003056 001017 BNE RESTRT IF NO. 
1160 112737 000377 001343 MOVB #377 ,QV.FLG 7SET THE QUICK VERIFY FLAG. 
1161 003066 113737 001311 001313 MOVB DUPNUM,SAVNUM RESTORE THE COUNT 
1162 003074 013701 000042 MOV a#42,R1 CHECK FOR ACT-11 OR DDP 
1163 003100 001406 BEQ RESTRT 4 4 NOT, CONTINUE TESTING 
1164 003102 000005 RESET [STOP THE SHOW=-CLEAR THE WORLD 
1165 003104 SENDAD : 
1166 003104 004711 JSR PC,(R1) 
1167 003106 000240 NOP 
1168 003110 000240 NOP 
1169 003112 000240 NOP 
1170 003114 000240 NOP 
1171 003116 012737 006224 001214 RESTRT: MOV CYCLE ,RE TURN 
1172 003124 000137 006224 JMP CYCLE 
1173 003130 000001 XCSR: 1 
1174 003132 006 002 . BYTE 6,2 
1175 003134 007404 RXCSR 
1176 003136 1 XVEC: 1 
1177 003140 003 002 WvTe 3.2 
1178 003142 001374 DUPRVC 
1179 003144 000001 XPASS: 1 
1180 003146 006 002 -BYTE 6,2 
1181 003150 001230 PASCNT 
1182 003152 000001 KERR: 1 
1183 003154 006 002 BYTE 6,2 
By 003156 001232 ERRCNT 
Hy 3 SCOPE LOOP AND INTERATION HANDLER 
1188 003166 005037 001234 -SCOPE: CLR LSTERR CLEAR LAST ERROR PC 
1189 003164 010016 MOV RO, (SP) SAVE RO ” STACK 
1190 003166 032777 040000 176006 BIT #B1T14,aSWR SLOOP ON TEST? 
1191 003174 001407 TTST:  BEQ 1$ :BR IF NO (IF LOCK ~* T;THIS LOCATION = 240) 
ie 003176 000437 BR 3$ £60 TO 3$ (DIT 
1193 003200 105777 176000 TSTB aTKCSR KYBD DONE? 
1194 003204 100034 BPL 3$ :BR IF NO (LOCK: HIT A KEY ON TTY TO GO TO NEXT TEST) 
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CZDPDD.P11 
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017700 
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017605 


175774 
004000 
001343 


001224 
001224 


001341 
001224 
001220 


000050 
001216 


175706 


001000 
001220 
001220 


000002 
000002 
010000 
005136 


175612 
175606 


000004 
000002 


006160 


;CLR_DONE BIT 
; CONT INUE 
;DELETE ITERATION (QUICK PASS)? 


BR IF YES 
HAS FIRST PASS is COMPLETED? 
;BR IF QUICK VERIFY 

UPDATE ITERATION COUNTER 

sALL_ ITERATIONS DONE? 

:BR IF NOT YET 

;PREPARE FOR NEW TEST 

:START ICOUNT AT ZERO 


RESET ITERATIONS 
GET NEXT TEST 

; POP s* yt! STACK 
SFAKE AN RTI 

3GO DO THE TEST 


31S SWO9=1(SET)? 
:BR IF NOT SET. 


;GOTO THE ADDRESS IN LOCK. 
BACK. 


;SAVE RS ON THE STACK. 
:GET ADDRESS OF MESSAGE. 
;POP OVER ADDRESS. 
: INHIBIT ALL PRINT OUT?? 
:BR IF NO PRINT OUT WANTED (SW12=1) 
31S NUMBER MINUS? (MSB=1(BIT7)) 
BR IF NUMBER IS PLUS 
TYPE A CR/LF! 
STTY READY? 


BR IF NO. 
tg! CURRENT CHAR. 

F NOT ZERO KEEP PRINTING! 
SEND OF OUTPUT. RESTORE RS 


SAVE R3 ON STACK 
SAVE R4 ON STACK 


25-JUL-79 o's 19 PAGE 28 
END OF PASS ROUTINE 
ay @TKDBR ,RO 
175760 1$: BIT #SW11,aSWR 
BNE $ 
TSTB QV.FLG 
BEQ 2$ 
INC LPCNT 
001222 CMP LPCNT, 1 COUNT 
BNE 3$ 
23: CLRB ERRFLG 
CLR LPCNT 
; CLR LOCK 
001222 MOV #50, 1 COUNT 
001214 MOV NEXT ,RETURN 
3$: MOV (SP) ,RO 
POP2sP 
JMP @RE TURN 
BRwW: 1407 
BRX: 437 
CHECK FOR FREEZE ON CURRENT DATA 
175662 .SCOP1: ee te aSwR 
TST (Ock 
BEQ 1$ 
MOV LOCK, (SP) 
1$: RTI 
; TELETYPE OUTPUT ROUTINE 
-TYPE: MOV R5,-(SP) 
MOV @2(SP) ,.R5 
000002 ADD #2,2(SP) 
175622 18: BIT #SW12,aSWR 
BNE 3$ 
TSTB (R5) 
BPL 2$ 
TYPE -MCRLF 
2$: TSTB @TPCSR 
BPL 2$ 
MOVB (R5)+,aTPDBR 
BNE 1$ 
3$: MOV (SP)+,R5 
RTI 
. INSTR: MOV R3,-(SP) 
MOV R4,-(SP) 
005434 V a4(SP),.MSG 
000004 ADD #2,4(SP) 
-INST1: TYPE 
-MSG: 0 
MOV #1 NBUF ,R4 


SEQ 0027 





CZDPD-D0 MACY11 30A(1052) 25-JUL-79 15:19 PAGE 29 
CZDPDD.P11 =. 25=JUL=79 15:01 END OF PASS ROUTINE SEQ 0028 
1251 003442 012703 000007 MOV #7,R3 

1252 003446 105777 175532 1$: TSTB = @TKCSR 

1253 003452 100375 BPL 1$ 

1254 003454 117714 175526 MOVB = @TKDBR, (R4) 

1255 003460 142714 000200 BICB #200, (R4) 

1256 003464 122427 000015 (MPR (RG) 4,415 

1257 003470 001417 BEO INSTR2 

1258 003472 105777 175512 2s: TSTB = @TPCSR 

1259 003476 100375 BPL 2$ 

1260 003500 017777 175502 175504 MOV @TKDBR , @TPDBR 

1261 003506 005303 DEC R3 

1262 003510 001356 BNE 1$ 

1263 003512 012604 MOV (SP) +,R4 

1264 003514 012603 MOV (SP) +-R3 

1265 003516 010346 /INSTE: MOV R3,-(SP) 

1266 003520 010446 MOV R4,-(SP) 

1267 003522 104402 005132 TYPE MQM 

1268 003526 000741 BR “INSTI 

1269 003530 012604 INSTR2: MOV (SP)+,R4 ;RESTORE R4 
1270 003532 012603 MOV (SP)+-R3 RESTORE R3 
ler 003534 000002 RTI 

1273 sCONVERT ASCII S/RING TO OCTAL 
1274 J ttt rere n= 
1275 

1276 003536 010546 PARAM: MOV R5,-(SP) 

1277 003540 010446 MOV R4,-(SP) 

1278 003542 016605 000004 MOV 4(§P) ,R5 

1279 003546 012537 003726 MOV (R5)+,LOLIM 

1280 003552 012537 003730 MOV (R5)+-HILIM 

1281 003556 012537 003732 MOV (R5)+,DEVADR 

1282 003562 112537 003734 MOVB = (R5) +. LOBITS 

1283 003566 112537 003735 MOVB - (R5) +. ADRCNT 

1284 003572 010566 000004 MOV R5,4(SP) 

1285 003576 005005 PARAM]: CLR R5 

1286 003600 012704 006160 MOV #INBUF ,R4 

1287 122714 000015 CMPB #15, (R4) 

12 003610 001420 BEQ PARERR 

1289 003612 121427 000060 1$: CMPB —s- (R4) , #60 

1290 003616 002415 BLT PARERR 

1291 003620 121427 000067 CMPB ss (R4) , #67 

1292 003624 12 BGT PARERK 

1293 003626 142714 000060 BICB #60, (R4) 


BR 
003652 104404 PARERR: INSTER 
003654 000750 BR PARAM 1 


:TEST TO SEE IF NUMBER IS WITHIN LIMITS 


SSRSESRIIUIN 
8 
: 
: 
3 


CZDPD-DO MACY11 se hee vintintoas* 15:19 PAGE 30 


CZDPDD.P11 25-JUL-79 15:0 END OF PASS ROUTINE SEQ 0029 
1307 003656 020537 003730 LIMITS: CMP RS,HILIM 
1308 003662 101373 BH] PARERR 
1309 003664 020537 003726 CMP RS,LOLIM 
1310 003670 103770 BLO PARERR 
1311 003672 133705 003734 BITB LOBITS,R5 
136 003676 001365 BNE PARERR 
139 ; STORE NUMBER AT SPECIFIED ADDRESS 
1316 003700 013704 003732 MOV DEVADR,R4 
1317 003704 010524 1$: MOV R5,(R4)+ 
1318 003706 062705 000002 ADD #2,R5 
1319 003712 105337 003735 DECB ADRCNT 
1320 003716 001372 BNE 1$ 
1321 003720 012604 . MOV (SP)+,R4 
1322 003722 012605 MOV (SP)+,R5 
1323 003724 000002 RTI 
1324 003726 000000 LOLIM: 0 
1325 003730 000000 HILIM: O 
1326 003732 000000 DEVADR: 0 
1327 000000 LOBITS: 0 
1358 003735 ADRCNT=LOBITS+1 
1330 SAVE PC OF TEST THAT FAILED AND RO-RS 
133! LSE EP 
tS, 003736 016637 000004 001266 .SAVOS: MOV 4(SP) ,SAYPC SAVE R7 (PC) 
ite s SAVE RO=-R5 
1337 003744 010537 001262 SvO5: MOV R5,SAVR5 SAVE RS 
1338 003750 0 001260 MOV R4,SAVR4 SAVE RS 
1339 003754 010337 0012 MOV R3,SAVR3 ;SAVE R3 
1340 003760 010237 001254 MOV R2,SAVR2 SAVE R2 
1341 64 010137 001252 MOV R1,SAVR1 SAVE R1 
1342 003770 010037 001250 MOV RO, SAVRO SAVE RO 
1343 003774 RTI LEAVE. 
1344 
ib ot RESTORE RO-R5 
1347 003776 013700 001250 .RESOS: MOV SAVRO,RO ;RESTORE RO 
1348 2 013701 001252 MOV SAVR1,R1 >RESTORE R1 
1349 013702 001254 MOV SAVR2,R2 RESTORE R2 
1350 004012 013703 001256 MOV SAVR3,R3 RESTORE R3 
1351 004016 04 001260 MOV SAVR4 RS sRESTORE R4 
1352 004022 013705 001262 MOV SAVR5,RS sRESTORE RS 
1353 004026 RTI LEAVE 
1388 
1336 ;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
1358 ; 
1359 004030 104402 005136 .CONVR: TYPE »MCRLF 
1360 004034 010046 .CNVRT: MOV RO,-(SP) 
136i 004036 010146 MOV R1,-(SP) 
1362 004940 010346 MOV R3,-(SP) 


CZDPD-DO MACY11 30A(1052) 25=JUL-79 15:19 PAGE 31 
CZDPDD.P11 25=JUL=79 15:01 END OF PASS ROUTINE SEQ 0030 
1363 004042 010446 MOV R4,-(SP) , 

1364 004044 010546 MOV R5.=(SP) 

1365 004046 017601 000012 MOV @12(SP),R1 

1366 004052 062766 000002 000012 ADD #2,12(SP) 

1367 004060 012137 004234 MOV (R1)+,WRDCNT 

1368 004064 112137 004236 1$: MOVB (R1)+, CHRCNT 

1369 004070 112137 004237 MOVB (R1) +. SPACNT 

1370 004074 013137 004240 MOV @(R1)+,BINWRD 

1371 004100 013704 004240 2s: MOV BINWRD RS 

1372 004104 113705 004236 MOVB — CHRCNT.RS 

1373 004110 012700 006054 MOV ATEMP RO 

1374 004114 010403 3$: MOV R4_R3 

1375 004116 042703 177770 BIC #177770,R3 

1376 004122 062703 000060 ADD #060,R3 

1377 004126 110320 MOVB _—R’3, (RO) + 

1378 004130 000241 CLE 

1379 004132 ROR RG 

1380 004134 000241 CLC 

1381 004136 ROR R4 

1382 004140 000241 CLC 

1383 004142 4 ROR R4 

1384 004144 005305 DEC RS 

1385 004146 001362 BNE 3$ 

1386 004150 012703 006116 MOV AMDATA,R3 

1387 004154 114023 4$: MOVB  =(RO),(R3)+ 

1388 004156 105337 004236 DECB —- CHRCNT 

1389 004162 001374 BNE 4$ 

1390 004164 105737 . 004237 TSTB —- SPACNT 

1391 004170 0014 BEQ §.6$ 

1392 004172 112723 000040 S$: MOVB #040, (R3)+ 

1393 004176 195337 004237 DECB — SPACNT 

1394 004202 001373 BNE 5$ 

1395 004204 105013 63: CLRB (R3) 

1396 004 104402 006116 TYPE .MDATA 

1397 004212 005337 004234 DEC WRDCNT 

1398 004216 001322 BNE 1$ 

1399 220 012605 MOV (SP)+,R5 

1400 004222 012604 MOV (SP)+.RG 

1401 004224 012603 MOV (SP)+.R3 

1402 004226 012601 MOV (SP) +_R1 

1403 004230 012600 MOV (SP) +-RO 

1404 004232 000002 RTI 

1405 004234 000000 WRDCNT: 0 

1406 004236 000000 CHRCNT: 0 

1407 004237 SPACNT=CHRCNT +1 

1408 004240 000000 INWRD: 0 

16% 

1411 : COMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
1412 “BUFFER TO THE CHARACTERS 'N'’ AND "'Y''. ; 
1413 ‘IF THE CHARACTER IS ‘N'' CLEAR THE FLAG 
1414 SIF THE CHARACTER IS ‘'Y'' SET THE FLAG . 
1416 004242 017605 000000 . SETFLG:MOV a(SP),R5 

1417 004246 042737 000040 006160 BIC #40, INBUF 

1418 004254 122737 000116 006160 CMPR st 'N. INBUF ZIS 17 ‘NT 2 


CZDPD-DO 
CZ2DPDD.P11 


MACY11 30A(1052) 
25-JUL-79 


001002 
105015 
000406 
122737 
001005 
112715 
062716 


000002 
104404 
000752 


011646 


15:01 


000131 


177777 
000002 


000002 


000000 
177001 


001344 
000000 


010000 
174624 


000207 
020000 
001234 
001234 
001341 


000002 


177001 
023274 
66 


25-JUL=79 15:19 PAGE 32 
END OF PASS ROUTINE SEQ 0031 
BNE 1$ 
CLRB —- (R5) 2000 
BR 2 
006160 1$: CPB #°Y, INBUF sis 17°" 7 
MOVB = #=1,, (RS) 3377 
2$: ADD #2, (SP) 
RTI 
3$: INSTER ;RETRY 
BR " SETFLG 
: TRAP DISPATCH SERVICE 
‘ARGUMENT OF TRAP IS EXTRACTED 
[AND USED AS OFFSET TO OBTAIN POINTER 
“TO SELECTED SUSROUT INE 
_TRPSR: MOV (SP) ,=(SP) :GET PC OF RETURN 
SUB #2, (SP) *=PC OF TRAP 
MOV a(SP) , (SP) ‘GET TRP 
TRPOK: ASL (SP) ‘MULTIPLY TRAP ARG BY 2 
BIC #177001, (SP) >CLEAR UNWANTED BITS 
ADD #. TRPTAB, (SP) “POINTER TO SUBROUTINE ADDRESS 
MOV a(SP), (SP) ‘SUBROUTINE ADDRESS 
JMP a(SP) + :GO TO SURROUTINE 
;ERROR HANDLER 
174624 .HLT: BIT #SW12,aSWR :BELL ON ERROR? 
BEQ XBX ‘BR IF NO BELL 
TSTB = aTPCSR = TTY READY. 
L XBX “DON'T WAIT IF TTY NOT READY. 
174616 VB #207, aTPDBR [PUSH A BELL AT THE TTY. 
174600 XBX: BIT #SW13,aSWR ‘DELETE ERROR PRINT OUT? 
BNE HALTS ‘BR IF NO PRINT OUT WANTED. 
CMP (SP) ,LSTERR ‘WAS THIS ERROR FOUND LAST TIME? 
BEQ 1$ [BR IF YES 
MOV (SP) ,LSTERR [RECORD BEING HERE 
CLRB  — ERRFLG :PREPARE HEADER 
1$: SAVOS ‘SAVE ALL PROC REGISTERS 
MOV (SP) ,R5 ‘GET THE PC OF ERROR 
SUB #2,R5 [GET ADDRESS OF TRAP CALL 
MOV (Rs), RG ‘GET HLT INSTRUCT ION 
ASL ‘MULT BY T 
ADD irs). RS DOUBLE iT 
ASL R4 MULT AGAIN 
BIC #177001,R4 *CLEAR JUNK 
ADD # ERRTAB,RG [GET POINTER 
MOV (R4)+, ERRMSG § :GET ERROR MESSAGE 
MOV (R4)+,DATAHD § :GET DATA HEADRER 
MOV (R4) , DATABP ‘GET DATA TABLE 
TSTB — ERRFLG S TYPE HEADREER 
BEQ TYPMSG :BR IF YES 
TST DATABP “DOES DATA TABLE EXIST? 
BNE TYPDAT “BR IF YES. 
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001341 
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000004 
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174516 
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174232 
001214 


15:19 PAGE 33 


END OF PASS ROUTINE 


TYPMSG: TYPE 
TYPE 


1$: TYPE 


ERRMSG: 0 
WRKO.FM: 


DATAHD: 0 
TYPDAT: 


DATABP: 0 
RESREG: 
HALTS: CMP 


BP 
1$: PUSHRO 


223: 


33$: POPRO 
EXITER: 


-MCRLF 
#-1,ERRFLG 
ERRMSG 
WRKO.FM 


DATAHD 
TYPDAT 


DATABP 
RESREG 


MSENDAD , 0A 42 
1$ 


aSwR 
EXITER 


2(SP) ,RO 


#340,5 
MSYSTST!MEXT ,@TX 


(SP)+,6 
(SP)+,4 
33$ 


(SP)+,(SP)+ 
(SP)+,6 
(SP)+,4 
ERRCNT 
‘acca 
#SW10,@SWR 
2$ 
NEXT ,RE TURN 


#STACK, SP 
@RE TURN 


6.2 


‘SHOW IT. 
‘GIVE A CR/LF 


;NO MORE HEADER UNLESS NO DATA TABLE. 


31S THERE AN ERROR MESSAGE ? 
;3R_IF NO 


s TYPE ‘ 

ERROR MESSAGE 
‘DATA HEADER? 
“BR IF NO 


:TYPE 
: DATA HEADER 
“DATA TABLE? 

“BR IF NO. 


: DATA TABLE 
SRESTORE PROC REGISTERS 
[IF ACT=11 AUTO MODE==HALT! ! 


HALT ON ERROR? 

:;BR IF NO HALT ON ERROR 

SAVE RO 

;SHOW ERROR PC IN DATA LIGHTS 
;SAVE OLD TRAP 


sFORCE HALT IF TIME-OUT 
;WHEN REFERENCING TXCSR 
CSR 

sHALT 

;RESTORE TRAP 

SHALT 

sPOP STACK 

;RESTORE TRAP 

:GET RO 

; UPDATE ERROR COUNT 
;GOTO TOP OF TEST? 
;BR IF YES 

;GOTO NEXT TEST? 

;BR IF NO 

;SET FOR NEXT TEST 
;RESET SP 

;GOTO SPECIFIED TEST 
;RE TURN 


SEQ 0032 | 
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CZDPDD. 


—! 
anaee 
Ww 
WN 


SS SRUEAE 


SERCES 


:S 


em ee ad i 8 a a 8 a tt 3 od od 2 SI Ot ot tt 
A a 
rs 


NMNMNANNNNNO 


AA AMMNAn 
ww 


Nm 
~ 


MACY11 ge ia 
P11 25-JUL-79 15:01 


001266 
000001 


: 
051105 


002 
000000 
000002 
020000 


020000 


005060 


001150 
005050 


174110 


000300 
000302 


000776 


239232333 
ROSANA 
NOOO oe oe oe os 
AANA 
Moon ov 
NMMUIWNUIAOON 


25-JUL=79 15:19 PAGE 34 
END 0 


174366 


174354 


000024 


000024 


020122 
042116 


3 
051522 


F PASS ROUTINE 


SAVPC 
XTSTN: 1 
-BYTE 3,2 
TSTNO 
-PKCLK: MOV a(SP),RO 
18 ADD #2, (SP) 
BIS ACLK,a@TXCSR 
DEC RO 
BEQ 2$ 
BIC #CLK,@TXCSR 
DEC RO 
BNE 1$ 
2$: RTI 
;WAIT ROUTINE 
SMALL: NOP 
RTS PC 
;POWER FAIL ROUTINE 
-PFAIL: me #PWRUP , 24 


HAL 

PWRUP: RESET 
MOV ASTACK, SP 
MOV #.PFAIL,24 


JMP @RE TURN 
:CLRVEC,ROUTINE TO FILL COMMUNICATION VECTOR AREA WITH 


;GET THE # OF TICKS TO POKE 
;POP OVER THE # 


:POKE CLOCK UP 
ARE WE DONE? 
: YES-GO TO 2$ 
POKE CLOCK DOWN 


jARE WE BONE ? 
;NO=REPEAT 
RETURN 


ZSTALL 
RETURN 


;LOAD PFAIL VECTOR FOR POWER UP 


‘WAIT TTY TO COME UP 
“REINIT STACK POINTER 
*LOAD PFAIL VECTOR FOR POWER DOWN 


-+2,HALT 


CLRVEC: MOV #300,R2 :R2 COMM VECTOR AREA ADRS 
MOV #302,R1 ; INIT R1 WITH ADRS OF HALT 
1$ MOV R1,(R2)+ *MOV .+2 TO PC 
CLR (R2)+ [MOV HALT TO PC 
CMP (R1)+,(R1)+ INC TO NEXT VECTOR AREA 
CMP #776 END OF VECTOR AREA 
BNE $ NO 
RTS PC ZRETURN 
: <ASCIZ #£ TF 
MCRLF: .ASCIZ <15><12> 
R: .ASCIZ <377>/PWR FAILED. 
MEPASS: .ASCIZ <15><377>/END Pass. CZDPDC / 
: eASCIZ <377>/R/ 
MERR2: .ASCIZ <377>/PROGRAM INDICATES NO DEVICES PRESENT. / 
MERR3: ASCIZ <377>/ INSUFFICIENT DATA!/ 
MTSTPC: .ASCIZ <377>/TEST PC-/ 
MLOCK: .ASCIZ <377>/LOCK ON SELECTED TEST/ 
MCSRX ASC1Z /CSR: / 
MVECX ASCIZ /VEC: / 
MPASSX: .ASCIZ /PASSES: / 
MERRX: .ASCIZ /ERRORS: / 


SEQ 0033 








CZDPD=DO MACY11 eo 052) 25=JUL=79 15:19 PAGE 35 


CZ2DPDD.P11 25=JUL=79 5:01 END GF PASS ROUTINE SEQ 0034 
(2) 005377 124 051505 020124 MTSTN: .ASCIZ Aw sad NO: / 
(2) 005411 052 000 MASTEK: .ASCIZ 
(2) 005413 377 042523 020124 MNEW: .ASCIZ <377>/SE1 SWITCH REG TO DUPT1°S DESIRED ACTIVE./ 
(2) 005466 041520 020072 QOQO MERRPC: .ASCIZ /PC: 
(2) 005473 042522 020103 MCSR -ASCIZ C3975 /REC CSR — / 
(2) 005512 0533577 041505 040440 MVEC ASCIZ <377>/VEC ADRS / 
(2) 005525 051511 052040 MJMPR ASCIZ <377>/1S THE OPTIONAL CLR JMPR IN? (Y OR N) / 
(2) 044777 020123 044124 MTCN ASCIZ <377>/1S_ THE H325 CONNECTOR ON? (Y OR N) / 
(2) 005647 77 020043 043117 MTOTAL: .ASCIZ <377>/# OF DUP'S (IN OCTAL) / 
(2) 005702 050377 044522 051117 MP. ASCIZ <377>/PRIORITY (4 TO 7) / 
(2) 005726 051777 041505 052040 MSTJM ASCIZ <377>/SEC TX JMPR IN? (Y OR N) / 
(2) 005761 377 042523 020103 MSRJM: .ASCIZ <377>/SEC RX JMPR_IN? (Y OR_N) / 
‘s} 006014 046777 050101 047440 en eASCIZ <377>/MAP OF DUP11 STATUS/<377> 
EVEN 
(2) 006042 000002 XSTATQ: 2 
1575 006044 006 003 -BYTE 6,3 
1576 006046 001236 TEMP 1 
1577 006050 006 002 -BYTE 6,2 
1578 006052 001240 TEMP? 
1579 EVEN 
1580 
1581 006054 000000 TEMP 
1582 006116 =. +40 
1583 006116 MDATA 
1584 006160 =. +40 
1585 006160 900000 I NBUF 
1586 006222 =. +4 
1587 006222 000001 TRP.PC: .BLKW 7 
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105737 
001004 
104402 
000000 


000776 
iB Sa 


013737 


001310 
005205 


38 
4 —s 
4 SRSSeSEEReS 
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END OF PASS ROUTINE 


001310 


001376 


CYCLE: 


1$: 


2$: 


3$: 


15:19 PAGE 36 


:ROUTINE USED TO ‘'CYCLE’' THROUGH UP TO EIGHT DUP11°S 
; THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTI~ 


sAND RUNS THE SPECIFIED DUP11'S. 


THIS ROUTINE *MUST* 


;BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 
SETUP NECESSARY. 


DUPACTV 

1$ 

»MERR2 

oe 

RUN ,DUPACTV 
2s 


RUN 


RUN 
#6,CREAM 
ee 


ee 


#DUP. END, CREAM 


3$ 
A#DUP .MAP , CREAM 
(RO) +,RXCSR 
(RO) +, DUPRVC 
(RO) +,L00.00 
#2,R0 
RXCSR,HUPRCR 
HUPRCR 
HUPRCR , RXDBUF 
RXDBUF 
RXDBUF , DUPSEC 
RXDBUF ,PARCSR 
RXDBUF , HUPRBF 
HUPRBF 
HUPRBF , HUPPSR 
HUPPSR ,, TXCSR 
TXCSR 
TXCSR,HUPTCR 
HUPTCR 
phy T XDBUF 
TXDBUF 
TXDBUF , HUP TBF 
HUP TBF 


DUPRVC , DUPRPS 


;ARE ANY DUP11'S TO BE TESTED? 
:BR IF 


OK. 
3;NO DUP11°S SELECTED!! 
STOP THE SHOW. 
:DISQUALIFY CONT. SW. 
31S THIS ONE ‘‘ACTIVE'’ 
BR IF GOOD ONE FOUND. 
> CLEAR "Sai — BIT. 


[UPDATE ADDRESS POINTER. 


;KEEP GOING; NOT ALL TESTED FOR. 
[RESET ADDRESS POINTER. 

KEEP LOOKING FOR S eyhiaite: DUP11 
:CLEAR PROC. CARRY 

UPDATE «aa 

CATCH CARRY 

GET ADDRESS POINTER. 

; UPDATE . 


zALL DONE? 

BR IF NO. 

RESTORE POINTER 

;LOAD Ag A CTRL. REG 

; 'ARAME TERS 

SAVE CORE THIS WAY 

:GET a ROL REG HIGH BYTE 
:GET " CONTROL REG BUFFER 
:GOT SECONDARY REG SELECT REG 
:GOT PARAMETER STATUS REGISTER 
:GET “ BUFFER HIGH BYTE 


:GQT PAR STATUS REG HIGH BYTE 
‘er HE CONTROL REGISTER 


I 
:GET " CONTROL REG HIGH BYTE 
;BET H BUFFER 
:GET H BUFFER HIGH BYTE 


3RX VECTOR 





CZDPD=D0 MACY11 30A(1052) 25=JUL=79 15:19 PAGE 37 
CZDPDD.P11 —- 25=JUL=79 15:01 END OF PASS ROUTINE SEQ 0036 
1645 006532 060037 001376 ADD RO, DUPRPS :RX PRIORITY LEVEL 
1646 006536 013757 001376 001400 MOV DUPRPS , DUPTVC 

1647 006544 060037 001400 ADD RO, DUPTVC :TX VECTOR 

1648 006550 013737 001400 001402 MOV DUPTVC -DUPTPS 

1649 006556 060037 001402 ADD RO,D :TX PRIORITY LEVEL 
1651 

1652 006562 012700 001434 MOV #100. 00,R0 :LOAD STAUS 00-00 

1653 006566 012701 001432 MOV #MASK.A_R1 ‘PREPARE MASK. 

1654 006572 012702 001433 MOV #CLK.A,R2 ‘PREPARE CLOCKS 

1655 006576 004737 006742 JSR PC,FIX.00 =GO AND CALCULATE CONFIGURATION. 
656 006602 005737 000042 TST ane2 

1657 006606 001050 BNE 4$ 

1658 006610 032777 O00002 172364 BIT #SW01,aSWR sIF SWO1=1,GET STARTING TEST @ 
1659 006616 001444 SEQ 4$ 

1660 006620 104402 005136 7$: TYPE _MCRLF 

1661 006624 104403 INSTR OUTPUT MESSAGE & GET INPUT STRING 
1662 006626 005377 MTSTN :MESSAGE 

1663 006630 104405 PARAM ; CONVERT STRING 

1664 006632 1 1 [LOW LIMIT 

1665 006634 1000  :HIGH LIMIT 

1666 006636 001226 TSTNO :STORE AT THIS LOCATION 

1667 006640 000 .BYTE 0 >MASK 

1668 006641 001 -BYTE 1 *HOW MANY TIMES + 2 

1669 006642 012700 007160 MOV #TST1,RO 

1670 006646 022710 012737 S$: CMP #12737, (RO) 

1671 006652 001017 BNE 6 

1672 006654 023760 001226 000002 CMP TSTNO,2(RO) 

1673 006662 001013 BNE ° 
1674 006664 022760 001226 000004 CMP #TSTNO,4 (RO) 

1675 006672 001007 BNE 6$ 

1676 006674 010037 001214 MOV RO,RETURN ZSAVE PC 

1677 006700 104402 005136 TYPE MCRLF 

1678 006704 104402 005202 TYPE * MR 

1679 006710 000412 BR &$ 

1680 006712 005720 6$: TST (RO) + 

1681 006714 020027 021464 CMP RO, ATLAST+10 

1682 006720 001352 E 5$ 

1683 006722 104402 005132 TYPE MOM 

1684 006726 000734 BR 7$ 

1686 006730 012737 007160 001214 4$: MOV #TST1,RETURN ZPREPARE RETURN ADDRESS 
oe 006736 000177 172252 8$: JMP @RE TURN :GO START TESTING. 
1689 006742 011003 FIX.00: MOV (RO) ,R3 :GET PARAMETERS. 


1690 006744 000207 5$: RTS PC : 
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172422 


172414 


007154 
ees 001242 


001242 007156 
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15:19 PAGE 38 


END OF PASS ROUTINE 


SETVEC: Aad 


NO.ATRAP: 
HLT 
RT] 

NO.BTRAP: 
HLT 
RTI 

SIMBCC: MOV 


1$: CLR 


2s: MOV 


0 
: 0 
CRC16=12000 
CRC.CCITT=1 


(R5) +, @DUPRVC 
(R5)+,a@DUPTVC 
(R5) +, @DUPRPS 
ae etl 


12 


13 


RO,-(SP) 


(R5)+, TEMP2 


1$ 

TEMP3, CALBCC 
(SP)+,R2 
(SP)+,Ri 
(SP)+,RO 

R5 


SEQ 0037 


M 3 


CZDPD-DO ae pe ear 25-JUL=79 15:19 PAGE 39 
CZDPDD.P11 25-JUL=79 15:01 INTERRUPT PRIORITY TEST=CPU LEVEL AT 7 SEQ 0038 
1747 
1748 pakkeeneenkannkeeeekerKnee TEST ] cee e eek eee eee eee eee eee 
1749 :*PRIORITY INTERRUPT TEST. 
1750 :*SET PROCESSOR STATUS TO PRIORITY 7 
1751 + ®AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT. 
1752 DISS IOIDIOIIOIIOIDIDIOIOIOIUIOIOIOIOIIOIOIDIUIDIDIDIDIOIIDIDIDIUIDIIDIDIIDIDINIOIDIIDIOII i tt ttt 
1753 
1754 DD io ott 
1755 ; * 
1756 3 YES? 7 
1757 : * 
1758 DDR ek kh 
1759 DDRII IDIIISIOIIOIOIUIOIIDIUIOIUIIOIUIDIOUIOIOIUIUIDIOIUIOIDIDIDIUIOIUIDIDIOIDIUIOIUIDIDINIDINIUIDIDIDIIOIII IO tt 
1760 007160 012737 000001 001226 TST1: MOV #1 ,@ATSTNO 
1761 007166 012737 007264 001216 MOV #TST2, - 
1762 007174 012737 000340 177776 MOV #340,P LOCK OUT INTERRUPTS 
1763 007202 052777 000400 172202 BIS PRESET, a@TXCSR RESET THE DEVICE 
1764 007210 004737 005044 JSR PC,SMALL WAIT FOR RESET TO FINISH 
1765 007214 004537 006746 JSR RS, SETVEC :SET UP VECTORS 
1766 007220 006770 NO.ATRAP :VECT mm "A 
1767 007222 006774 NO.BTRAP VEC TOR ‘B"' 
1768 007224 340 340 -BYTE 340,340 LEVEL 
1769 007226 012777 004100 172156 MOV #TXINTE!SYSTST, aixcsh ; TURN ON DUP TX INT. ENABLEAND _ENTER SYSTST MODE 
1770 007234 012737 000340 177776 MOV #340,PS SET CPU PRIORITY=-CHANGE HERE IF NOT = 5 
1771 007242 000240 NOP STALL 
1772 007244 000240 NOP :DITTO 
1773 007246 000240 NOP DITTO 
1774 007250 005077 172136 1$: CLR @TXCSR ;DISABLE THE DUP11 
1775 007254 104400 SCOPE ;SCOPE THIS TEST 
1776 007256 012716 007250 2$: MOV #1$, (SP) i; SETUP FOR RETURN 
1777 007262 9000002 RTI RETURN 
1778 
779 
1780 SoniGntte Iaenmat Seat TEST O eee exe eeee eee eee eee ee 
1781 ;*PRIORITY INTERRUPT TEST 
1782 ;*SET PROCESSOR STATUS TO PRIORITY 6 
1783 7*AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT. 
1784 PTET TTITITITITITITTIITIITITTTTI ITIL LTT LEE LLL EEL Le 
1785 
1786 DD Ok kk 
1787 : 
1788 ; TEST 2 
1789 : 
1790 peeeeeseendene 
1791 5 Re RR i BR HR RA RT Br TT TTT TT TT TTT TR RR ERE EERE REE REE REE 
1792 007264 012737 000002 001226 TsT2: MoV #2, a4TSTNO 
1793 007272 012737 007400 001216 MOV #1ST3,NEXT 
1794 007300 122737 000005 001320 CMPB #5,PRIRTY ;COMPARE REAL WITH NORMAL 
1795 007306 001026 BNE 1$ :BR IF NOT A MATCH 
1796 007310 012737 000340 177776 MOV #340,PS ;LOCK OUT INTERRUPTS 
1797 007316 052777 000400 172066 BIS #MRESET ,@TXCSR RESET THE DEVICE 
1798 007324 004737 005044 JSR PC, SMALL WAIT FOR RESET TO FINISH 
1799 007330 004537 006746 JSR R5,SETVEC [SET UP VECTORS 
1800 007334 006770 NO.ATRAP :VECTOR ‘'A’* 
1801 007336 006774 NO.BTRAP :VECTOR *B"' 
1802 007340 340 340 -BYTE 340,340 LEVEL 


N 3 
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25-Jul-79 15:01 INTERRUPT PRIORITY TEST=CPU LEVEL AT 6 SEQ 0039 

1803 007342 012777 004100 172042 MOV bE yt calla aTXCSR ; TURN ON DUP TX INT. ENABLEAND _ENTER SYSTST MODE 
18046 007350 012737 000300 177776 MOV #300,P SET cu PRIORITY==CHANGE HERE IF NOT = 5 
1805 007356 000240 NOP STAL 
1806 7360 000240 NOP ‘BITTO 
1807 007362 000240 NOP ;DITTO 
1808 007364 005077 172022 1$: CLR @TXCSR ;DISABLE THE DUP11 
1809 007370 104400 SCOPE ;SCOPE THIS TEST 
1810 007372 012716 007364 2$: MOV #1$, (SP) ;SETUP FOR RETURN 
1811 007376 000002 RTI ;RETURN 
1812 
1813 
1814 PRR RRR RRR ERIK TEST 3 eee eee eee eee eee ee 
1815 :*PRIORITY INTERRUPT TEST. 
1816 *SET PROCESSOR STATUS TO PRIORITY 5 
1817 + *AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT. 
1818 ORI IISISISIISIIIOIIOIIOIIIOIDIOIIIIOIIISIOINIIDISIIIIOIIIOIUIOIIIIDIOIIIUIUIOIUIDIOIIUIOIIOIOIOE fot 
1819 
1820 pte 
1821 : 
1822 ; Fest 5 
1823 : * 
1824 DDR kh 
1825 DOOR III IOI III IIOICIIIIISIOIUIOIUIUISIIUISIOIOIUIOIUIUIOUIOIUIIOIOIIIUIOIIOIIUIDIIOIIIDIDINIOI IOI tot tt 
1826 007400 012737 000003 001226 TST3: MOV #3, a4TSTNO 
1827 007406 012737 007514 001216 MOV #T514,NEXT 
1828 007414 122737 000005 001320 CMPB #5,PRIRTY > COMPARE REAL late NORMAL 
1829 007422 001026 BNE 1$ ‘BR IF NOT A MATCH 
1830 007424 012737 000340 177776 MOV #340,PS ;LOCK OUT INTERRUPTS 
1831 007432 052777 000400 171752 BIS MMRESET,@TXCSR ;RESET THE DEVICE 
1832 007440 004737 005044 JSR PC, SMALL SWAIT FOR r, 4 TO FINISH 
1833 007444 004537 006746 JSR R5,SETVEC 7SET UP VECTORS 
1834 007450 006770 NO.ATRAP VECTOR ‘‘A*’ 
1835 007452 006774 NO.BTRAP ; VECTOR ‘B"’ 
1836 007454 340 340 -BYTE 340,340 LEVEL 
1837 007456 012777 004100 171726 MOV #TXINTE!SYSTST,@TXCSR ;TURN ON DUP TX INT. wy ENTER SYSTST MODE 
1838 007464 012737 000240 177776 MOV #240,PS SET CPU PRIORITY==CHANGE HERE IF NOT = 5 
1839 007472 000240 NOP STALL 

0 007474 000240 NOP ;DITTO 
1841 007476 000240 . NOP DITTO 
1842 007500 005077 171706 1$: CLR @aTXCSR ;DISABLE THE DUP11 
1843 007504 104400 SCOPE ;SCOPE THIS TEST 
1844 007506 012716 007500 2$: MOV #1$, (SP) :SETUP FOR RETURN 
1845 007512 000002 RTI RETURN 
1846 
1847 
1848 petekeekeeeer eee eee TEST 6 teak een e eee eee eee eee 
1849 + *PRIORITY INTERRUPT TEST. 
1850 *SET PROCESSOR STATUS TO PRIORITY 4 
1851 + *AND VERIFY THAT THE DJUP11 WILL INTERRUPT. 
1852 LAR E RET ERE ERE AERA RERE RARER E ee 
1853 
1854 Pete 
1855 * 
1856 ; TEST 4 
1857 : * 


1858 se eeenaearane 
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CZDPD-D0 MACY11 eS hae 25-JUL=79 15:19 PAGE 41 
CZDPDD .P11 25-JUL-79 15:01 INTERRUPT PRIORITY TEST=CPU AT LEVEL 4 SEQ 0040 
1859 SRR RRR EREEEEREREREREEEERER REET ERE RRE PERRET 
007514 012737 000004 001226 TST4: MOV #4 ,@ATSTNO 
1861 007522 012737 007632 001216 MOV MTSTS,NEXT 
1862 7530 122737 000005 001320 CMPB *° PRIRTY ; COMPARE REAL WITH NORMAL 
1863 007536 001027 BNE 1$ :BR IF NOT A MATCH 
1864 007540 012737 000340 177776 MOV #340,P ;LOCK OUT INTERRUPTS 
1865 007546 052777 000400 171636 BIS PRESET, @TXCSR :RESET THE DEVICE 
1866 007554 004737 005044 JSR PC,SMALL ;WAIT FOR pd TO FINISH 
1867 007560 004537 006746 + JSR RS,SETVEC SET UP VECTOR 
1 007564 006770 NO.ATRAP : VECTOR ,A' 
1869 007566 007624 2$ . TOR ‘B"' 
1870 007570 340 340 -BYTE 340,340 LEVEL 
1871 007572 012777 004100 171612 MOV #IXINTE!SYSTST, atxcsr ; TURN ON DUP TX INT. ENABLEAND ENTER SYSTST MODE 
1872 007600 012737 000200 177776 MOV #200,PS 7SET CPU PRIORITY=-CHANGE HERE IF NOT = 5 
1873 007606 24 NOP STALL 
1874 007610 000240 NOP ;DITTO 
1875 007612 000240 NOP :DITTO 
1876 007614 104013 HLT 13 ; DUP FAILED TO ‘oy oe WRONG PRIORITY=CHANGE IF NOT 5 
1877 007616 005077 171570 1$: CLR aTxcCSR DISABLE THE DUP11 
1878 007622 104400 SCOPE : SCOPE THIS TEST 
1879 007624 012716 007616 2$: MOV #1$, (SP) SET UP FOR RETURN 
\aat 007630 000002 RTI RETURN 
1882 pekkeankteatkkekkenkenkeeee TEST SS RARER EERE KE 
1883 S*TEST TO PROVE THE HALF-DUPLEX FUNCTION 
1884 :*PROVE THAT THE RECEIVER WILL NOT RECOGNIZE 
1885 ee IF SEND IS ASSERTED. 
1886 SR EAR REAR REREEREERK EEE ERERERERRE REE EE 
1887 
1888 PIAA Ree he hee 
1889 : * 
1890 ; TEST 5 
1891 ; 
1892 LIN RR RRR 
1893 PIERRE ARR ER RE RR RRR ER RR Rk tk ttt 
1894 007632 012737 000005 001226 TSTS: MOV #5 ,@ATSTNO 
1895 007640 012737 010172 001216 MOV MTST6,NEXT 
007646 105737 001322 TSTB TCNFLG 
1897 007652 001530 BEQ 1$ 
1898 007654 012737 000340 177776 MOV #340,PS ;LOCK OUT INTERRUPTS 
1899 007662 052777 000400 171522 BIS #MRESET, @TXCSR RESET THE DEVICE 
1900 007670 004737 005044 JSR PC, SMALL WAIT FOR RESET TO FINISH 
1901 007674 052777 010010 171510 BIS WMEXT ‘HDXEN, aTxcéR sENTER MAINT EXT AND HALF-DUPLEX MODES 
1902 007702 004537 006746 JSR R5,SETVEC :SET UP VECTORS 
1903 007706 010162 2$ RECEIVER 
1904 007710 006774 NO.BTRAP ; TRANSMITTER 
1905 007712 340 340 -BYTE 340,340 LEVEL 
1906 007714 005037 177776 CLR PS ;LOWER PROC. STATUS 
1907 007720 052777 000020 171456 BIS MRCVEN,@RXCSR  ;TURN ON RECEIVER 
1908 007726 052777 000100 171450 BIS MRINTEN,@RXCSR ;TURN ON INT. ENABLE 
1909 007734 052777 000020 171450 BIS #SEND ,a@TXCSR ; TURN ON TRANSMITTER 
1910 007742 012737 000005 007772 MOV #5688 [LOAD THE NUMBER 
1911 007750 032777 004000 171436 66$: BIT #TIMER,@TXDBUF ;CHECK THE TIMER BIT 
1912 007756 001374 BNE :BR IF SET 
1913 007760 032777 004000 171426 67$: BIT MTIMER,@TXDBUF ;CHECK THE BIT 
1914 007766 001774 BEQ 67$ :BR IF CLEAR 
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010044 
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171354 


171314 
010130 
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171236 
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HALF=DUPLEX TEST 







5 

#TSOM, aT XDBUF 
#5,73$ 
oe 
#TIMER, aTXDBUF 
72$ 


74 

#TEOM, aTXDBUF 
#40. ,78$ 
#TIMER, aT XDBUF 
76$ 

#7 IMER, aT XDBUF 
7/$ 


¢ 
#MRESET, *ATXCSR 
C, SMALL 


pekarakekekeeeeeeekiki mene TEST 6 eae eee eee eee e eek tee 


:*TEST OF THE DUP RUNNING A BINARY COUNT 
3 *PATTERN WITHOUT A CRC CALCULATION 


J TERA ERRAAARAAEEEAERRAAERAEAAERRARAERRKKERRRAREEKEERKE KERR ERE ES 


'WeAOARAGAARAAASLALLLAALALELSLASSSR SAREE R ERR RRR SER R RRR RRR RRR RAR RS RRR RSE ES OD | 


-NEX 
#WMRE SET, ATXCSR 











vies THE NUMBER 
SOF TIMES TO REPEAT 
;BR IF MORE TO GO 












; TXDONE rate TO SET 
[LOAD TX BUFFER 

;LOAD THE NUMBER 
CHECK THE TIMER BIT 


BR _IF SET 

ao THE BIT 

BR IF CLEAR 

‘DE CREMENT THE NUMBER 
2 OF TIMES TO REPEAT 



















sEXTERNAL CLOCKING STOPPED 

;O0R DATA WAS NOT RECEIVERD.CHECK 
EIA DATA AND CLOCK PATHS 

; HARACTER 


SEND THE a th 
;LOAD THE NUMBER 

:CHECK THE TIMER BIT 

3BR_IF SET 

:CHECK THE BIT 

BR IF ta 


:DECREMENT THE NUMBER 
; OF Hy: TO REPEAT 
F MOR 


:BR E TO GO 
RAISE PROCESSOR STATUS 
:RESET STACK 


DEVICE 
sWAIT FOR RESET TO FINISH 
:SCOPE THIS TEST 


RECEIVER INTERRUTED AND SHOULD 
ae HAVE=-THIS IS HALF 
; DUPLEX. 


























;RESET THE DEVICE 
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CZDPDD.P11 25-JUL-79 15:01 BINARY COUNT PATERN WITHOUT BCC 













1971 010214 004737 005044 JSR PC, SMALL ; WAIT +R RESET TO FINISH 
1972 010220 012737 000001 001236 MOV #1, TEMP) [LOAD DAT 

1973 010226 005037 001240 CLR TEMP2 ; CLEAR EXPECTED 

1974 010232 012737 000340 177776 MOV #340,PS PS = 

1975 010240 052777 004000 171144 BIS MSYSTST,@TXCSR ;ENTER SYSTEM TEST MODE 
1976 010246 004537 006746 JSR RS,SETVEC ;LOAD INTERRUPT VECTORS 
1977 010252 010446 11$ RECEIVER 

1978 010254 010526 12$ ; TRANSMITER 

1979 010256 340 340 BYTE 340,340 ;LEVEL 

1 010260 052777 001000 171122 BIS #CRCEN, @PARCSR ; TURN OFF CRC 
1981 010266 052777 000020 171110 BIS WRCVEN,@RXCSR =; TURN ON THE RECEIVER 
1982 010274 052777 000100 171102 BIS #RINTEN,@RXCSR TURN ON REC INTERRUPT ENABLE 
1983 010302 105777 171104 1$: TSTB aTXCSR STEST FOR TX DONE 

1984 010306 100375 BPL 1$ BR IF NOT SET 

1985 010310 052777 000020 171074 2$: BIS AMSEND ,@TXCSR [TURN ON SEND 

1986 010316 012777 000400 171070 MOV #TSOM,@TXDBUF ;TURN ON START OF MESSAGE 
1987 010324 012737 000005 010354 MOV #5 68 [LOAD THE NUMBER 

1988 010332 032777 004000 171054 66$: BIT ATIMER,@TXDBUF ;CHECK THE TIMER BIT 
1989 010340 001374 BNE 66$ SBR IF SET 

1990 010342 032777 004000 171044 67$: BIT #TIMER, aT XDBUF + CHECK THE BIT 

1991 010350 001774 BEQ 67$ IF CLEAR 

1992 010352 005327 DEC (PC)+ DE CREMENT THE NUMBER 
1993 010354 000005 68$: 5 OF TIMES TO REPEAT 

1994 010356 001365 , BNE 66$ BR IF MORE TO GO 

1995 010360 105777 171026 3$: TSTB aTXCSR ;WAIT FOR DONE 

1996 010364 100401 BMI 4$ 7BR_IF SET 

1997 1 HLT EXTERNAL +57 ena STOPPED 





010366 104000 
010370 005077 171020 4$: CLR @1 XDBUF PUSH OUT DAT 






1998 
1999 010374 052777 000100 171010 BIS #TXINTE,@TXCSR ; TURN ON TRANSMITTER INT ENABLE 
2000 010402 005037 177776 CLR PS ;LOWER PROCESOR STATUS 
2001 010406 5$: 
2002 010406 012737 000040 010436 MOV #32. ,73$ LOAD THE NUMBER 
2003 010414 032777 004000 170772 71$: BIT MTIMER,@TXDBUF ;CHECK rite TIMER BIT 
2004 010422 001374 BNE 1 :BR IF SET 
2005 010424 032777 004000 170762 72$: BIT MTIMER,@TXDBUF ;CHECK THE BIT 
010432 001774 BEQ 72$ 7BR IF CLEAR 
2007 010434 005327 DEC (PC)+ ;DECREMENT THE NUMBER 
010436 000040 73$: Ses ;O0F TIMES TO REPEAT 
2009 010440 001365 BNE 71$ 7BR IF MORE TO GO 
2010 010442 104001 HLT 1 FAILED TO | al IN TIME 
2011 010444 104400 6$: SCOPE ;SCOPE THIS TEST 














14 

96 0 = a A |S eect eatearmmmeimeninnae 

16 
2017 RECEIVER: 
2018 010446 017737 170734 001324 11$: MOV @RXDBUF ,DATA GET THE REGISTER AND DATA 
2019 010454 123737 001240 001324 CMPB TEMP2 DATA CHECK IT 
20 010462 001401 BEQ .+4 :BR IF OK 
2021 010464 104002 HLT 2 ; COMPARISON ERROR 
2022 010466 105237 001240 INCB TEMP2 ; COUNT UP EXPECTED 
2023 010472 105737 001240 TSTB TEMP2 ;CHECK TO SEE IF DONE 
2024 010476 001012 BNE 7$ ;BR_IF NO 
2025 010500 105777 170700 10$: TSTB @RXCSR CHECK FOR DONE 
2026 010504 100375 BPL 10$ ;BR IF NOT YET 
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CZ2DPDD.P11 25-JUL-79 15:01 BINARY COUNT PATERN WITHOUT BCC SEQ 0043 
2027 010506 032777 001000 170672 BIT #RE OM , ARXDBUF ;CHECK FOR END OF MSG 
2028 010514 001001 BNE .+4 :BR IF SET 
2029 010516 104003 HLT 3 sEND OF MSG FAILED TO SET 
on 010520 012716 010444 MOV #6$, (SP) ;CRUNCH STACK 
2032 010524 000002 7$: RTI RETURN 
2033 
2034 
2035 ; TRANSMITTER: 
2036 010526 113777 001236 170660 12$: MOVB TEMP1 , aT XDBUF ;LOAD THE TRANSMITTER BUFFER 
2037 010534 105237 001236 . INCB TEMP1 ;UP THE COUNT 
2038 010540 122737 000377 001256 CMPB #377, TEMP) TARE WE DONE 
2039 010546 001026 BNE 1 :BR IF NO 
2040 010550 012777 010560 170622 MOV #21$,QDUPTVC + SETUP FOR NEXT PART 
2041 010556 000422 BR 13$ ; LEAVE 
2042 010560 012777 000377 170626 218: MOV #377 ,aTXDBUF LOAD BUFFER 
2043 010566 012777 010576 170604 MOV #22$,QDUPTVC :SETUP NEXT PART 
2044 010574 000413 BR 13$ : LEAVE 
2045 010576 012777 001000 170610 22$: MOV #TEOM, aT XDBUF :SET END OF MSG 
2046 010604 000240 NOP STALL 
2047 010606 000240 NOP ;DITTO 
2048 010610 042777 000120 170574 BIC MSEND!TXINTE,@TXCSR ; TURN OFF TRANSMITTER 
2049 010616 012777 006774 170554 MOV #NO.BTRAP,@DUPTVC ;LOAD VECTOR 
2050 010624 012716 010406 158% MOV #5$, (SP) ;CRUNCH STACK 
2051 010630 000002 RTI ;RETURNS 
2052 
2053 
2054 petktakekhkeek ket TEST 7 see e eee eee eee eth eke ke het 
2055 ;*TEST OF THE DUP RUNNING A BINARY COUNT 
2056 s*PATTERN WITH A CRC CALCULATION 
2057 IRRSIOIOIOISIOIIDIOIIIIOIIIOIIIIOIOIIUIDIOIIUIOIUIIIOINIUIOIOIIDIOIOIUIOIUIIUOIIIIDIIDIDIDINIO IID tot t 
2058 
2059 DD iti ito 
2060 : 
2061 s VEST 7 
2062 : . 
2063 rs RRKKKKKER EE 
2064 SR RTT RRR REE RRR EERE RE ERR E ERE R EERE RRR ERR ee 
2065 010632 012737 000007 001226 TST7: MOV #7 ,@ATSTNO 
2066 010640 012737 011432 001216 MOV #15T10,NEXT 
2067 010646 052777 000400 170536 BIS WMRESET,aTXCSR art ¥ THE DEVICE 
2068 010654 004737 005044 JSR PC, SMALL WAIT FOR a tH TO FINISH 
2069 010660 005001 CLR R1 CLEAR OUT DAT 
2070 010662 012737 102010 007152 MOV #CRC. CCITT, XPOL y SET UP THE POLYNOMIAL 
2071 010670 012737 177777 007156 MOV #-1,CALBCC ;SETUP FOR THE FIRS? TIME 
2072 010676 013737 007156 010720 16$: MOV CALBCC, 20$ ZALLOW Ar THE NEXT CHARACTER 
2073 010704 010137 010716 MOV R1,17$ LOAD DAT 
2074 010710 004537 007000 JSR R5,SIMBCC ‘60 CALCULATE SOFTWARE BCC 
2075 010714 000010 8. [BASED ON THESE PARAMETERS 
2076 010716 000001 17$: -BLKw DATA 
2077 010720 000001 20$: -BLKW 1 PREVIOUS BCC 
2078 010722 105201 INCB Ri ; INCREMENT DATA 
2079 010724 001364 BNE 16$ [BR IF MORE TO GO 
2080 010726 012737 000001 001236 MOV #1, TEMP) ;LOAD DATA 
2081 010734 005037 001240 CLR TEMP2 CLEAR EXPECTED 
2082 010740 012737 000340 177776 MOV #340,PS :PS = 7 
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CZDPD=D0 MACY11 30A(1052) 25-Jul-79 15:19 PAGE 45 
CZDPDD.P11 —- 25=JUL-79 15:01 BINARY COUNT PATTERN WITH BCC SEQ 0044 
2083 010746 052777 004000 170436 BIS | #SYSTST,@TXCSR ;ENTER SYSTEM TEST MODE 
2084 010754 004537 006746 JSR —-RS,, SETVEC [LOAD INTERRUPT VECTORS 
2085 010760 011146 11$ ZRECEIVER 
2086 010762 011214 12$ : TRANSMI TER 
2087 010764 340 34 BYTE 340, 340 ZLEVEL 
2088 010766 052777 000020 170410 BIS WRCVEN,@RXCSR TURN ON THE RECEIVER 
2089 010774 052777 000100 170402 BIS #RINTEN,@RXCSR TURN ON REC INTERRUPT ENABLE 
2090 011002 105777 170404 1$: TSTB. = @TXCSR TEST FOR TX DONE 
2091 011006 100375 BPL 1$ :BR IF NOT SET 
2092 011010 052777 000020 170374 28: BIS | #SEND,@TXCSR TURN ON SEND 
011016 012777 000400 170370 MOV «ATOMS @TXDBUF ©: TURN ON START OF MESSAGE 
011024 012737 000005 011054 mov #5, 68$ [LOAD THE NUMBER 
011032 032777 004000 170354 66$: BIT  #TIMER,a@TXDBUF CHECK THE TIMER BIT 
011040 001374 BNE : :BR IF SET 
611042 032777 004000 170344 678: BIT  #TIMER,@TXDBUF CHECK THE BIT 
2098 011050 001774 BEQ 678 :BR IF CLEAR 
2099 011052 005327 DEC (PC) + DECREMENT THE NUMBER 
2100 011054 688: 5 OF TIMES TO REPEAT 
2101 011056 001365 BNE 66 BR IF MORE TO GO 
2102 011060 105777 170326 3$: TSTB = @TXCSR SWAIT FOR D 
2103 011064 100401 BMI 4$ :BR IF SET 
2104 011066 104000 HLT EXTERNAL CLOCKING STOPPED 
2105 011070 005077 170320 4$: CLR @TXDBUF :PUSH QUT DAT 
2106 011074 052777 000100 170310 BIS FIXINTE,@TXCSR :TURN ON TRANSMITTER INT ENABLE 
2107 011102 005037 177776 CLR P'S LOWER PROCESOR. STATUS 
2108 011106 5$: 
2109 011106 012737 000040 011136 MOV «#32. ,73$ :LOAD THE NUMBER 
2110 011114 032777 004000 170272 71$: BIT  #TIMER,aTXDBUF ;CHECK THE TIMER BIT 
2111 011122 001374 BNE 71$ BR IF SET 
2112 011124 032777 004000 170262 728: BIT  #TIMER,aTXDBUF CHECK THE BIT 
2113 611132 001774 BEQ 728 :BR IF CLEAR 
2114 011134 005327 DEC (PC) + :DECREMENT THE NUMBER 
2115 011136 0 73$: 32, OF TIMES TO REPEAT 
2116 011140 001365 BNE 71$ :BR IF MORE TO GO 
2117 011142 104001 HLT 1 ~FAILED TO INTERRUPT IN TIME 
2118 011144 104400 6$: SCOPE “SCOPE THIS TEST 
2120 
2721 INTERRUPT SERVICE ROUTINES 
2102 FRR RRR 
2103 
212% ;RECEIVER: 
2125 011146 017737 170234 001324 11$: MOV. @RXDBUF,DATA —;GET_THE REGISTER AND DATA 
2126 011154 123737 001240 001324 C TEMP2 DATA CHECK IT 
2127 011162 001401 BEQ +4 :BR IF Ok 
2128 011164 194002 HLT 2 COMPARISON ERROR 
2129 011166 105237 001240 INCB—-TEMP2 COUNT UP EXPECTED 
2130 011172 105737 001240 TSTB —-TEMP2 : CHECK TO SEE IF DONE 
2131 011176 001005 BNE 7$ BR IF NO 
2132 011200 004537 006746 JSR «RS, SETVEC SYES=-RESET THE VECTORS 
2133 011204 011320 148 ZRECEIVER 
2134 011206 011214 128 : TRANSMITTER 
2135 011210 $40,340 BYTE 340, 340 SLEVEL 
2137 011212 000002 7$: RTI : RETURN 
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CZDPDD.P11 25-JUL=79 15:01 BINARY COUNT PATTERN WITH BCC SEQ 0045 
2139 
2140 ; TRANSMITTER: 
2141 011214 113777 001236 170172 128: MOVB TEMP] , aT XDBUF ;LOAD THE TRANSMITTER BUFFER 
2142 011222 105237 001236 INCB TEMP 1 ;UP THE COUNT 
2143 011226 122737 000377 001236 CMPB #377,TEMP1 ARE WE DONE 
2144 011234 001026 BNE 13$ ;BR IF NO 
2145 011236 012777 0112466 170134 MOV #21$,aDUPTVC + SETUP FOR NEXT PART 
2146 011244 22 BR 13$ ; LEAVE 
2147 011246 012777 000377 170140 218: MOV #377 ,aTXDBUF [LOAD BUFFER 
2148 011254 012777 011264 170116 MOV #22$ ,QDUPTVC : SETUP NEXT PART 
2149 011262 000413 BR 13$ LEAVE 
2150 011264 012777 001000 170122 22$: MOV #TEOM, aT XDBUF “SET END OF MSG 
2151 011272 000240 NOP STALL 
2152 011274 000240 NOP FY TO 
2153 011276 042777 000120 170106 BIC MSEND!TXINTE,@TXCSR ; TURN OFF TRANSMITTER 
2154 011304 012777 006774 170066 MOV A#NO.BIRAP,aDUPTVC ;LOAD VECTOR 
2155 011312 012716 011106 13$: MOV #5$, (SP) ;CRUNCH STACK 
$12 011316 000002 RTI RETURNS 
2158 011320 117737 170062 001324 148: MOVB @RXDBUF ,DATA ;GET FIRST PART OF CRC 
2159 011326 105777 170052 TSTB @RXCSR ;WAIT FOR SECOND PART 
2160 011332 100375 BPL 74 ;DITTO 
2161 011334 017737 170046 001242 MOV @RXDBUF,TEMP3 ;GET THE REST OF THE CRC 
2162 011342 113737 001242 001325 MOVB TEMP3 ,DATA+1 SET UP CRC CHARACTER 
2163 011350 012716 011356 MOV #15$, (SP) ;SETUP FOR RETURN 
2164 011354 000002 RT] RETURN 
2165 011356 012737 000340 177776 15$: MOV #340,PS RAISE ". 
2166 011364 005137 007156 COM CALBCC ; INVERT BCC 
2167 011370 023737 007156 001324 CMP CALBCC,DATA tS ie SOFTWARE AND HARDWARE BCC 
2168 011376 001401 BEQ +4 'BR IF 
2169 011400 104004 ca 0.7 4 BCC COMPARISON ERROR 
2170 011402 032737 010000 001242 BIT #CRCERR, TEMP3 :CHECK THE ERROR BIT 
2171 011410 001401 . BEQ +4 [BR IF NO ERROR 
2172 011412 104004 HLT 4 ;BCC ERROR--RECEIVER + tal 
2173 ;AGREE WITH WHAT TX SEN 
2174 011 052777 000400 167770 BIS WMRESET,@TXCSR ;RESET THE DEVICE 
2175 011422 004737 005044 JSR PC, SMALL :WAIT FOR RESET TO FINISH 
2176 011426 000137 011144 IMP 6$ [LEAVE 
2178 peketekekeeenakeeeekeenie TEST 10 retaeranawtrenneneeenteeene 
2179 SeTEST OF THE DUP RUNNING A BINARY COUNT 
2180 ;*PATTERN WITH A CRC CALCULATION 
2181 PITTI TIT TITITITI TTT TTT T TTT TTT TTT TTT ttt 
2182 
2183 DD tk 
2184 ; 
2185 3 TEST 10 
2186 : 4 
2187 DDR ke 
2188 RRR ERE EERE REERRREERAERRE EERE RRRRERER ERE REE 
2189 011432 012737 000010 001226 TST10: MOV #10, a#TSTNO 
2190 011440 012737 012240 001216 MOV #1S711,NEXT 
2191 011446 052777 000400 167736 BIS MMRESET,@TXCSR ;RESET THE DEVICE 
2192 011454 004737 005044 JSR PC, SMALL ;WAIT FOR RESET TO FINISH 
2193 011460 105737 001322 TSTB TCNFLG 
21946 011464 001532 BEQ 6$ 
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CZDPDD.P11 25-JUL=79 15:0 BINARY PATTERN TEST WITH BCC IN EXTERNAL MODE SEQ 0046 
011466 5001 CLR R1 CLEAR OUT DATA 
011470 012737 102010 007152 MOV MCRC.CCITT, XPOLY’ ;SET UP THE 7POL YNOMIAL 
011476 012737 177777 007156 MOV #=-1,CALBCC : SETUP FOR THE FIRST TIME 
011504 013737 007156 011526 168: MOV CALBCC, 208 ‘ALLOW FOR THE NEXT CHARACTER 
011512 010137 011524 MOV R1,17$ “LOAD DATA 
011516 537 007000 JSR RS.SIMBCC 7GO CALCULATE SOFTWARE BCC 
011522 10 8. ;BASED ON THESE PARAMETERS 
011524 1 17%: -_BLKw so DATA 
011526 1 208: -BLKW 1 sPREVIOUS BCC 
011530 105201 INCB R1 ; INCREMENT DATA 
011532 1364 BNE 16$ ;BR IF MORE TO GO 
011534 012737 1 001236 MOV #1,TEMP1 ;LOAD DATA 
011542 005037 001240 CLR TE ;CLEAR EXPECTED 
011546 012737 340 177776 MOV #340,PS PS = 7 
011554 052777 010000 167630 BIS #MEXT ,@TXCSR 
011562 537 006746 JSR RS, SETVEC :LOAD INTERRUPT VECTORS 
011566 011754 11$ [RECEIVER 
011570 012022 12$ ; TRANSMITER 
011572 340 340 BYTE 340,340 “LE VEL 
011574 052777 000020 167602 BIS MRCVEN,@RXCSR  :TURN ON THE RECEIVER 
011602 052777 000100 167574 BIS WRINTEN, @RXCSR ;TURN ON REC INTERRUPT ENABLE 
011610 105777 167576 1$: TSTB aTxcSR : TEST FOR TX DONE 
011614 100375 BPL 1$ ‘BR IF NOT SET 
011616 052777 000020 167566 2$: BIS #SEND,aTXCSR 7; TURN ON SEND 
011624 012777 000400 167562 MOV #TSOM,aTXDBUF  ;TURN ON START OF MESSAGE 
011632 012737 000005 011662 MOV #5 ,68$ “LOAD THE NUMBER 
011640 032777 004000 167546 66$: BIT AMTIMER,@TXDBUF ;CHECK THE TIMER BIT 
011646 001374 BNE 66$ ‘BR IF SET 
011650 032777 004000 167536 67$: BIT #TIMER,@TXDBUF ;CHECK THE BIT 
011656 001774 BEQ 67$ ‘BR IF CLEAR 
011660 005327 DEC (PC) + :DECREMENT THE NUMBER 
011662 683: 5 OF TIMES TO REPEAT 
011664 1365 BNE 66$ ;BR IF MORE TO GO 
11666 105777 167520 3$: TSTB aTXCSR SWAIT FOR DONE 
011672 01 BM! 4$ ;BR IF SET 
011674 104000 HLT sEXTERNAL CLOCKING STOPPED 
011676 005077 167512 4$: CLR @7 XDBUF :PUSH OUT DATA 
011702 052777 000100 167502 BIS MTXINTE,@TXCSR ;TURN ON TRANSMITTER INT ENABLE 
grey 005037 177776 = CLR PS “LOWER PROCESOR STATUS 
011714 012737 000040 011744 MOV #32. ,73$ LOAD THE NUMBER 
011722 032777 004000 167464 71$: BIT ATIMER,a@TXDBUF ; CHECK THE TIMER BIT 
2237 011730 001374 BNE 71$ ‘BR IF SET 
011732 032777 004000 167454 72$: BIT #TIMER, aT XDBUF : CHECK THE BIT 
011740 177 BEQ 72$ IF CLEAR 
011742 005327 DEC (PC)+  DECREMENT THE NUMBER 
011744 0 73$: 32. OF TIMES TO REPEAT 
011746 001365 BNE 71$ BR IF MORE TO GO 
011756 104001 HLT 1 FAILED TO all IN TIME 
011752 104400 6$: SCOPE sSCOPE THIS TES 
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EXTERNAL MODE 


11$: MOV @RXDBUF ,DATA ;GET THE REGISTER AND DATA 
CMPB TEMP2 DATA : CHECK IT 
BEQ +4 ;BR IF OK 
HLT 2 ; COMPARISON ERROR 
INCB TEMP2 ; COUNT UP EXPECTED 
TSTB TEMP2 7 CHECK bs SEE IF DONE 
BNE 7$ ‘BR IF NO 
JSR R5,SETVEC s YES--RESET THE VECTORS 
14$ SRECEIV VER 
12$ ; TRANSMITTER 
«BYTE 340,340 SLEVEL 

7$: RTI sRETURN 

; TRANSMITTER: 

12$: MOV8 TEMP1 , aT XDBUF Py THE TRANSMITTER BUFFER 
INCB TEMP1 ;UP THE COUNT 
CMPB 4377,TEMP1 ;ARE WE DONE 
BNE 13$ ;BR IF NO 
MOV #21$,aDUPTVC ;SETUP FOR NEXT PART 
BR 13$ SLEAV E 

21$: MOV #377 ,aTXDBUF ;LOAD BUFFER 
MOV #22$, aDUPTVC ‘; SETUP NEXT PART 
BR 13$ SLEAVE 

228: MOV #TEOM, aT XDBUF SET END OF MSG 
NOP STALL 
NOP DITTO 
BIC ASEND!'TXINTE,@TXCSR ; TURN OFF TRANSMITTER 
MOV ANO.BTRAP,aDUPTVC ;LOAD VECTOR 

13$: MOV #5$, (SP) CRUNCH STACK 
RTI ZRETURNS 

14$: MOVB @RXDBUF , DATA :GET FIRST PART OF CRC 
TSTB @RXCSR ;WAIT FOR SECOND PART 
BPL -4 :DITTO 
MOV @RXDBUF , TEMP3 sGET THE REST OF THE CRC 
MOVB TEMP3, DATA+1 ;SET UP CRC CHARACTER 
MOV #15$, (SP) ;SETUP FOR RETURN 
RTI :RE TURN 

15$: MOV #340,PS RAISE PS 
COM CALBCC * INVERT BCC 
CMP CALBCC DATA + COMPARE SOFTWARE AND HARDWARE BCC 
BEQ +4 IF OK 


é 

BIT SCRCERR. TOPS 
a* 

HLT 4 


BIS AMRESET ,@TXCSR 
JSR PC, SMALL 


:BR 
:BCC COMPARISON ERROR 


CHECK THE ERROR BIT 
:BR 


IF NO ERROR 
BCC ERROR=-RECEIVER DOESN'T 
;AGREE WITH WHAT TX SEN7 
;RESET THE DEVICE 
WAIT FOR RESET TO FINISH 


JMP 6$ “EAVE 


pteteraaeeeekenadeeekaeeee TEST 1] saeaantanerennenteensenenes 


*THIS TEST WILL CHECK FOR ABORT SEQUENCE 
;*OF THE DUP IN A DATA STREAM 


oti eapidesste oasdloh Useanccohideddioeccot.acteleceseecs | 
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DATA STREAM ABORT SEQUENCE TEST 


LIAR ERR EERE OER E RETR EE EEE ER EERE EERE ETRE RETREAT 
DDR Rie 


*® 


3 VEST 1 


: TRAE KEEEKRE 
wee e eee eee R RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRS ES DO 


TST11: 


1$: 


2$: 
3$: 


66$: 
67$: 


68$: 


11$: 


OPE 
RECEIVER  aeeaay SERVICE ROUTINE 
4$: @RXCSR,R1 


5$: 


6$: 


12$: 


AP . 
340,340 sLEVEL 
RO ¢ 


#11, a4TSTNO 

#TST12,NEXT 

MMRESET,@TXCSR ;RESET THE DEVICE 

PC. SMALL sWAIT FOR RESET TO FINISH 

RS, SETVEC ;SET UP INTERRUPT VECTORS 
;BASED ON THESE 


R3 “DITTO 


#340,PS ;PS= 

#PRISEC!377,@PARCSR ;LOAD SEC STATION AND ADRS 
MRCVEN!RINTEN, @RXCSR ; TURN ON THE RECEIVER 
ele thc santa ;TURN ON TRANSMITTER 


aTXCSR = CHECK FOR TXDONE 

1$ ‘BR IF NOT SET 
#TSOM,@TXDBUF =: TURN ON START OF MSG 
aTXCSR ‘WAIT FOR DONE 

2$ ;AND THEN 

#377,aTXDBUF § :LOAD A CHARACTER 

RO [UPDATE CHARACTER COUNTER 
#5,RO GARE ALL CHARACTERS LOADED? 
ATABORT ,@TXDBUF ; TURN ON ABORT 

#200. ,68$ LOAD THE NUMBER 


#TIMER,a@TXDBUF ; CHECK Tie TIMER BIT 
66 BR IF SET 
MTIMER,@TXDBUF ;CHECK THE BIT 
67$ 7BR IF CLEAR 
(PC) + :DECREMENT THE NUMBER 
OF TIMES TO REPEAT 
66$ BR IF MORE TO GO 
1 ;RECEIVER DID NOT INTERRUPT IN TIME 
#STACK, SP SRESET STACK 
;SCOPE THIS TEST 


GET THE Sty REGISTER 


@RXDBUF ,R2 7GET THE BUFF 

#RXDONE ,R1 ;CHECK FOR DONE 

$ :BR IF DONE SET 

7 FALSE INTERRUPT 

#377 ,R2 : CHECK DATA CHARACTER 
6$ 7BR_IF A MATCH 
;DATA_ERROR 

R3 ;INC THE # OF CHARS TO DO 
#3,R3 : CHECK TO SEE IF DONE 
10$ BR IF — TO GO 
@RXCSR “CHECK FOR 


SEQ 0048 


in siaes 2) 
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CZDPDD.P11 25-JUL-79 15:01 DATA STREAM ABORT SEQUENCE TEST 
2363 012516 100375 BPL 12¢ ; DONE 
2364 012520 017702 166662 MOV @RXDBUF ,R2 READ THE ait 
2365 012524 032702 002000 BIT MRABORT ,R2 ; TEST ABORT 
2366 012530 001001 BNE 7$ [BR IF SET 
2367 012532 104010 HLT 10 7FAILED TO RECEIVE ABORT 
2368 012534 012716 012444 7$: MOV #11$, (SP) ;SET UP FOR RETURN 
2369 012540 052777 000400 166644 BIS #MRESET,@TXCSR SRESET THE DEVICE 
2370 012546 004737 005044 JSR PC,SMALL ;WAIT FOR RESET TC FINISH 
2371 012552 000002 10$: RT] SRE TURN 
2372 
2373 
2374 Decco oooooooniogn TEST (712 so IO tion t 
2375 S*THIS TEST PROVES THE RECEIVER WILL STOP 
2376  *ACCEPT ING DATA IF SHUT OFF IN THE MIDDLE 
2377 :*OF A MESSAGE, AND THAT IT WILL NOT 
2378  *RESTART UNTIL IT RECEIVES A FLAG 
2379 TDMA OO UIOIIIIIIIOIIISIIOISIIEIIOIDIEISIDIIISIEIEIEI IEISEOI IO oni iniiiits 
2380 
2381 DD Rk ik 
2382 ; * 
2383 g VEST le 
2384 5 
2385 DD ok ito tok 
2386 : DIRIGO IIISIOIIIIOIIOIOIUIOIOIUIOIOIOIIIOIOIOIOIOIUIOIOIOIIOIIIOIIOISIOIOI IOI TORO TOOT 
2387 012554 012737 000012 001226 TST12: MOV #12, a4TSTNO 
2388 012562 012737 013344 001216 MOV #TST13,NEXT 
2389 012570 052777 000400 166614 BIS #MRESET,@TXCSR RESET THE DEVICE 
2390 012576 004737 005044 JSR PC, SMALL WAIT FOR RESET TO FINiSH 
2391 012602 005000 CLR RO SCLEAR FOR SOFTWARE 
2392 012604 004537 006746 JSR R5,SETVEC SET UP THE VECTORS 
2393 012610 013034 3$ :RE CEIVER 
2394 012612 013234 14$ ; TRANSMITTER 
2395 012614 340 340 -BYTE - 340,340 ;LEVEL 
2396 012616 012737 000340 177776 MOV #340,P PS ;PROC STATUS=7 
2397 012624 052777 001000 166556 BIS #CRCEN, @PARCSR 
2398 012632 052777 000120 166544 BIS #RCVEN'RINTEN, @RXCSR ; TURN ON RECEIVER 
2399 012640 052777 004020 166544 BIS #SEND!SYSTST, aTXCSR ;START TRANSMITTER 
2400 012646 005037 177776 CLR PS ;LOWER PS 
2401 012652 105777 166534 1$: TSTB aTXCSR ;CHECK FOR DONE 
2402 012656 100375 BPL 1$ ;BR IF NOT YET 
2403 012660 052777 000400 166526 BIS #TSOM, aT XDBUF ; TURN ON START OF MSG 
2404 012666 052777 000100 166516 BIS #TXINTE,@TXCSR ; TURN ON INT. 9 
2405 012674 012737 000764 012724 MOV #500. ,68$ LOAD THE NUMBER 
2406 012702 032777 004000 166504 66$: BIT ATIMER,@TXDBUF ; CHECK ThE TIMER BIT 
2407 012710 001374 BNE 66$ ‘BR IF SET 
2408 012712 032777 004000 166474 67$: BIT ATIMER,@TXDBUF ;CHECK THE BIT 
2409 012720 001774 BEQ 67$ :BR IF CLEAR 
2410 012722 005327 DEC (PC)+ ee NT THE NUMBER 
2411 012724 000764 68$: 500. ;OF TIMES TO REPEAT 
2412 012726 001365 BNE 66$ BR IF MORE TO GO 
2413 012730 . 104001 HLT 1 ;DEVICE FAILED TO INTERRUPT IN TIME 
2414 012732 012706 001150 2$: MOV #STACK, SP SRESET THE STACK 
2415 012736 104406 3 SCOPE sSCOPE THIS TEST 
2416 012740 004537 006746 20$: JSR R5S,SETVEC 7SET UP VECTORS 
2417 012744 013164 $ ;RECEIVER 


23 : 
2418 012746 006774 NO.BTRAP ; TRANSMITTER 





MACY11 30A(1052) 
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25-JUL-79 1 
012750 
2 


340 
000020 
166426 
000070 
000062 
004000 
004000 


- 166344 


013212 
013214 


166342 
000400 


000200 
000377 
013104 


166276 
000377 


000020 
013136 


25=JUL=79 


166424 


166420 
013024 
166404 


166374 


166272 
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UNIQUE SHUTDOWN TEST 


21$: 


‘gis 
72$: 


73$: 


340, 340 
MRCVEN,@RXCSR 
aTXCSR 

21$ 
#70,aTXDBUF 
#50.,73$ 
anal 
#TIMER,@T XDBUF 
72$ 

(PC) + 

71$ 

1 


BR 2s 
; INTERRUPT SVC ROUTINES 


3$: 


;RECEIVER 
MOV 


ARXCSR,RS 
@RXDBUF ,R5 
#RSOM,R5 
4$ 


11 
ARXDONE ,R4 
5$ 


7 
#377,R5 
6$ 


2 

#10$, aDUPRVC 
@RXDBUF ,R5 
#377 .,R5 

11$ 


2 
#RCVEN, @RXCSR 
Seas -@DUPRVC 


;LEVEL 


: TEST “a 

:BR IF NOT SET 

;PUSH OUT DATA CHARACTER 
;LOAD THE NUMBER 

CHECK THE TIMER BIT 


7BR IF SET 

CHECK THE BIT 

:BR IF CLEAR 
;DECREMENT THE NUMBER 
OF TIMES TO REPEAT 


:BR IF MORE TO GO 
;FAILED TO INTERRUPT IN TIME 
[FINISH 


GET THE Spey REGISTER 
GET THE BUFFER 

CHECK FOR START OF MSG 
SBR IF SET 

sFAILED TO RECEIVE SOM 
CHECK FOR DONE 


BR IF SET 
Ae 3 INTERRUPT 


; ERR 
RELOAD THE VECTOR 
7RE TURN 


GET THE BUFFER 
= CHECK THE CHARACTER 


RROR 
TURN OFF THE RECEIVER 
VECTOR 


RELOAD THE V 

RETURN 

GET THE CONTROL REGISTER 
7G E BUFFER 


7BR MATC 

FALSE INTERRUPT 

;DEVICE INTERRUPTED AFTER RX ENABLE 
:WAS CLEARED 


[GET THE CONTROL REG 
:GET THE BUFFER 
; CHECK les OF MSG 


BR IF 

; SOM raat te TO SET 

> CHE CK ee 

:BR IF A MATCH 

;DATA FAILED TO MATCH AFTER 
[RESTARTING RECEIVER 


(REV. DO) 


SEQ 0050 
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013214 
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25-JUL-79 1 
052777 
004737 
012716 
000002 


105777 
100401 


012737 


000400 
005044 
012732 


166152 


000377 
000002 
013274 


166112 


000252 
000003 
001400 
000100 
012740 


000005 


25-JUL=79 


166170 


166142 


166110 


166102 


166064 
166054 


RTI 
; TRANSMITTER 
14$: ™8 


30$: 


16$: 


17$: 


15$: 


TT TTT TTT TTT 


TEST 13 


TERRA KEKKE 
‘MARA SASASALSLASSSASSSARSSALASSSES ERR ESSA RSS RRS SRS ERE R SARS RARER ESS SS | 


$113: 


1$: 


2$: 
3$: 


15:19 PAGE 52 
UNIQUE SHUTDOWN TEST 


BIS 
JSR 


MMRESET,@TXCSR ;RESET THE DEVICE 
SMALL 


PC ‘WAIT FOR RESET TO FINISH 
#2$, (SP) ‘CRUNCH STACK 
;RETURN 
aTxCSR : CHECK DONE 
30$ :BR IF SET 
? [FALSE INTERRUPT 
#377, aTXDBUF SLOAD A CHARACTER 
RO ‘IN THE # TO DO 
#2,RO :CHECK TO SEE IF ALL ARE SENT 
15$ [BR IF MORE TO GO 
#16$,aDUPTVC = : RELOAD THE VECT 
RO. [CLEAR CHAR COUNT 
aTXCSR : TEST DONE 
17$ [BR IF SET 
7 [FALSE INTERRUPT 
#252,aTXDBUF § :LOAD A DATA CHARACTER 
RO SINC THE # TO DO 
"3. RO ;CHECK FOR ALL DONE 
15$ IF MORE TO GO 
#TEOM! TSOM, aTXDBUF sEND MSG 
#TXINTE,aTXCSR 
#20$, (SP) : CRUNCH STACK 


pekkaatakenakeneeneeraenit TEST 13 cite ee kt kt 
:*THIS TEST WILL FRANSMIT CONTIGUOUS ONES CHARACTERS 
:*IN SECONDARY MODE WITH A BCC CHECK. 


TERE 


MOV 


#13, a4TSTNO 

#1ST14,NEXT 

#WMRESET ,aTXCSR sRESET THE DEVICE 

PC, SMALL IT FOR RESET TO FINISH 


#3h0, LPS SET STATUS=7 

R2 :SETUP FOR SOFTWARE 

#377, [CALCULATION OF BCC 

#CRC. ee XPOLY’ ;LOAD THE POL YNOMINAL 
#1, CALBCC :SETUP FOR FIRST TIME 
CALBEC. _3$ ZALLOW FOR THE NEXT CHARACTER 
R5.SIMBCC *GO CALCULATE SOFTWARE BCC 
' :BASED ON THOSE PARAMETERS 
1 ‘PREVIOUS BCC 

RO SINC THE # OF CHARS TO DO 
#5,R0 TARE WE DONE? 


1$ :BR IF NO 


SEQ 0051 


CZDPD=DO 


CZDPDD.P11 


013722 
013730 
013732 
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005000 
004 


052777 
004737 
104400 


017737 
120137 


012777 
005202 
G22702 


006746 

340 
010377 
000120 
004020 
165670 


000100 
177776 


000040 
004000 


setting” *- 


165674 


165662 
165652 


013574 
165634 
165624 


165692 


001324 


165522 


001324 


001325 
001324 


165464 


15:19 PAGE 


N 
53 


ONTIGUOUS ONES OUTPUT TEST 


208: TSTB 


S$: 
66$: BIT 
67$: BIT 


68$: 


5$: 


RO 
RS,SETVEC 


340,340 ;LEVEL 
#PRISEC!377,aPARCSR 


4 


;CLEAR OUT HOLD 

; LOAD INTERRUPT VECTORS 
RECEIVER 

“TRANSMITTER 


s;ENTER SECONDARY 


MODE 
AWRCVEN!RINTEN, @RXCSR ; TURN ON RECEIVER AND INTERRUPTS 


MSEND! SYSTST,@TXCSR 


@TXCSR 

20$ 
#TSOM, aT XDBUF 
MTXINTE,@TXCSR 
PS 

#32. ,68$ 
#TIMER,@TXDBUF 
#TIMER,@1XDBUF 
67$ 

(PC) + 

66$ 

; 

MMRESET ,@TXCSR 
PC, SMALL 


; INTERRUPT SERVICE ROUTINES. 


;RECEIVER 
6$: 


7$: RTI 
10$: MOVB 


; TRANSMITTER 
: MOV 


11$ 
INC 
CMP 


@RXDBUF , DATA 
R1,DATA 
.+ 


RO 

#4 RO 

7$ 

#10$, @DUPRVC 
@RXDBUF , DATA 
@RXCSR 
@RXDBUF , DATA+1 


CALBCC 
 Seeaamniae 
.+ 


4 
#5$, (SP) 


#377 ,@TXDRUF 
R2 
#5 ,R2 


; TURN ON TRANSMITTER 


START MESSAGE 
; TURN ON INTERRUPT ENABLE 
OWER PS 


LOAD THE NUMBER 
; CHECK Tie TIMER BIT 
7BR IF SET 
CHECK THE BIT 
7BR IF CLEAR 
;DECREMENT THE NUMBER 
;OF TIMES TO REPEAT 
;BR IF MORE TO GO 
;FAILED TO INTERRUPT IN TIME 


RESET THE DEVICE 
WAIT FOR RESET TO FINISH 
;SCOPE THIS TEST 


;GET : DATA 


[UPDATE THE # OF CHARS TO DO 
CHECK FOR ALL CHARS DONE 
E TO GO 


7BR IF MOR 
: SETUP TO GET BCC 
TURN 


:GET FIRST HALF OF BCC 
;WAIT FOR 


; THE SECOND HALF 
GET a SECOND HALF 
: INVERT BCC 

7CHECK IT 

BR IF Ok 

;BCC ge ERROR 
FINISH TEST 

RETURN 


;LOAD A DATA CHARACTER 
INC THE # OF CHARS TO DO 
[CHECK TO SEE OF DONE 


SEQ 0052 
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012737 
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004737 
104400 
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013750 
001000 


013544 


165270 
000200 
001000 


000400 
005044 


25=JUL=79 
CON 


165432 
165436 


AMNMALO KAOQ 


=O? =00 
A-AXRXAO ass 


= 
oO 
Ww 
Ww 
& 


12$: 


138: 


15:19 PAGE 54 
TIGUOUS ONES OUTPUT TEST 


B 5 






13$ ;BR_IF MORE TO GO 
#12$,aDUPTVC + SETUP NEXT VECTOR 
13$ ; RETURN 
#TEOM, aT XDBUF END MSG 


;DITTO 
BIC WSEND!TXINTE,@TXCSR ;TURN OFF TRANSMITTER 
a #NO.BTRAP,@DUPTVC ;RESET THE VECTOR 


#4$, (SP) :G0 BACK TO WAIT LOOP 
ETURN 





peakkeakeakkeanakaekkkenehe TEST 14 ce eanen ence ee keene ete 


[*THIS TEST PROVES THE INTERACTION OF DEC PDE. 
:*TSOM, SYNC, TXACT, TXDONE 


TERRA EAEAREREEEEEEEKAREKERERRRERAEEREEREEEHEREHEREREEE 


RARER 


66$: 
67$: 


2$: 


TEST 14 


ERE 
‘MASSA AARASRASASASRSAAASLARRARARRR RARER RRRR RAR ARRAS RAR RRR SSSR RRR ERED SS SS 


ST14: 


MOV #14, @4TSTNO 

MOV ATSTIS,NEXT 

BIS AMRESET,@TXCSR ;RESET THE DEVICE 

JSR PC, SMALL s;WAIT FOR RESET TO FINISH 
MOV #DECMOD ! 26! CRCEN, @PARCSR 

BIS AMSYSTST,,aTXCSR sENTER SYSTEM TEST MODE 


BIS #SEND ,aTXCSR TURN ON TRANSMITTER 
MOV #7SOM! 26 ,aTXDBUF [OUTPUT A SYNC CHAR 
MOV #5 ,68$ ;LOAD THE NUMBER 

‘BIT MTIMER,@TXDBUF ;CHECK THE TIMER BIT 

BNE $ :BR IF SET 

BIT ATIMER, @TXDBUF ;CHECK THE BIT 

BEQ 67$ :BR IF CLEAR 

DEC (PC)+ ;DECREMENT THE NUMBER 

5 SOF TIMES TO REPEAT 

BNE 66$ ;BR IF MORE TO GO 

MOV aTXCSR,R4 :GET THE CSR 

Bli #TXDONE ,R4 CHECK TRANSMITTER DONE 
BNE 1$ BR IF SET 

HLT 16 : TXDONE FAILED TO SET 
BIT MTXACT ,R4 TEST ACTIVE 

BNE 2s BR IF SET 

HLT 17 sACTIVE FAILED TO SET 


BIS AMRESET ,@TXCSR :RESET THE DEVICE 
JSR PC, SMALL WAIT FOR RESET TO FINISH 
SCOPE :SCOPE THIS TEST 


pttekeeceeteeereeraeeenekeee TEST 15 seeaneeee eee eee eee eee eee 


[*THIS TEST PROVES THE INTERACTION OF TEOM, 
;*SEND, TXACT AND TXDONE IN DEC MODE. 


PTT ITIIITITITTI TIT TELI TTI TTI TTT iti titi ttt ti titti 





..% 





CZDPD-DO MACY11 30A(1052) 25-JUL=79 15:19 PAGE 55 
CZDPDD.P11 =. 25=JUL=79 15:01 DECMODE, TEOM, SEND, TXACT, TXDONE INTERACTION TEST SEQ 0054 
2643 RRR RARER 
2644 ; 
2645 3 TEST 15 
2646 : 
2647 PIA R RR ee 
2648 FRIIS IOIOIOIOIOIOIIIOIIUIOIUIOIIOIIIOIOIIIOIOIUIOIUIOIIIIOIOIDIOIOIOIOIOIITIDIDISIITIDIOIDIOIDI ID 
2649 014156 012737 000015 001226 TST15: MOV #15 ,@4TSTNO 
2650 014164 012737 014352 001216 MOV #TST16,NEXT 
2651 014172 052777 165212 BIS MMRESET ,@TXCSR Het) THE DEVICE 
4200 00473 JSR PC, SMALL WAIT FOR RESET TO FINISH 
2653 4204 012777 101026 165176 MOV HDECMOD' 26  CRCEN, @PARCSR 
2654 014212 052777 165172 BIS aia bl rh sENTER SYSTEM TEST MODE 
2655 014220 052777 000020 165164 BIS #SEND , aTXCSR TURN ON TRANSMITTER 
2656 014226 012777 000426 165160 MOV #TSOM!36, @TXDBUF S OUTPUT A_SYNC_ CHAR 
2657 014234 105777 = 165152 1$: TSTB aTXCSR :CHECK FOR DONE 
2658 014240 100375 BPL 1$ BR IF NOT YET 
2659 014242 012777 000426 165144 MOV Ake ah @TXDBUF LOAD A SECOND SYNC 
2660 014250 105777 165136 2$: TSTB a@7XCSR sAND NOW WAIT e 
2661 014254 100375 BPL 2$ FOR DONE AGAIN 
2662 014256 012777 001000 165130 MOV #TEOM, aT XDBUF :SET END OF MSG 
2663 014264 042777 000020 165120 BIC MSEND , aTXCSR ; TURN OFF TRANSMITTER 
2664 014272 012737 000025 014322 MOV #25 ,68$ LOAD THE NUMBER 
2665 014300 032777 004000 165106 668: BIT #TIMER, @TXDBUF © CHECK THE TIMER BIT 
2666 014306 001374 BNE 66$ BR_IF SET 
2667 014310 032777 004000 165076 67S: BIT ATIMER,@TXDBUF = ;CHECK THE BIT 
2668 014316 001774 BEQ 67$ BR IF CLEAR 
2669 014320 005327 DEC (PC)+ :DECREMENT THE NUMBER 
2670 014322 000025 68$: 25 OF TIMES TO REPEAT 
2671 014324 001365 BNE 66$ ;BR IF MORE TO GO 
2672 014326 105777 165060 TSTB aTXCSR i CHECK DONE 
2673 014332 100401 BM1 3$ 7BR IF SET 
2674 014334 104016 HLT 16 :DONE FAILED TO SET AFTER TURNING OFF TX. 
2675 014336 032777 001000 165046 3$: BIT #TXACT,@TXCSR CHECK ACTIVE 
2676 014344 001401 BEQ 4$ BR IF OFF 
2677 014346 104020 HLT 20 sACTIVE IS STILL SET-SHOULD BE RESET 
2678 014350 104400 4$: SCOPE SCOPE FOR THIS TEST. 
2679 
2681 ptkkeaeaaeaakaeaeaanaeeetwet TEST 16 se eae ee eee eee eee eee ehh 
2682 [*THIS TEST PROVES THAT THE DUP WILL NOT 
2683 :*SYNC UP IN LESS THAN TWO SYNCS 
2684 TTT IT TTI TI TIT TIT T LITT TTTT TTT TTT TTT Titi ttt ttt tit ttt ttt titi itt 
2685 
2686 Dee Re 
2687 : 
2688 : TEST 16 
2689 ; * 
2690 PI eee ee 
2691 ITT IITITITTLIITT ITIL TI TLILTTLi TTL TLL LLL ELL LLL 
2692 014352 012737 000016 001226 TST16: MOV #16, a4TSTNO 
2693 014360 012737 014720 001216 MOV #TST17,NEXT 
2694 014366 052777 000400 165016 BIS MMRESET ,@TXCSR sRESET THE DEVICE 
2695 014374 004737 005044 JSR PC, SMALL WAIT FOR RESET TO FINISH 
2696 014400 012777 101026 165002 MOV #DECMOD ! 26! CRCEN, "PARC SR 
2697 014406 052777 004000 164776 BIS #SYSTST,@TXCSR ‘_ ZENTER SYSTEM TEST MODE 
2698 014414 052777 000020 164762 BIS #RCVEN,@RXCSR LOAD RCVEN 


CZDPD-DO 
CZDPDbD.P11 


014422 
01 


014716 


MACY) eC ise? 
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052777 


000020 
000426 
164750 


000125 
000005 
004000 


004000 


164672 


25-JUL=79 
SYNC 


164762 
164756 


164742 
014502 
164726 


164716 


164664 


164610 


164574 
014650 
164560 


164550 


2$: 


69$: 


3$: 


72$: 
73$: 


74$: 


4$: 


5$: 
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TEST 


BIS MSEND ,@TXCSR ; TURN ON TRANSMITTER 


MOV #TSOM! 26 ,aTXDBUF [OUTPUT A SYNC CHAR 

TSTB aTXCSR ; CHECK TRANSMITTER DONE 
BPL 1$ SWAIT TILL SET 

MOV #125 ,aTXDBUF ;LOAD DATA 

MOV #5, 68$ ;LOAD THE NUMBER 

BIT ATIMER,@TXDBUF ; CHECK THE TIMER BIT 

BNE $ :BR IF SET 

BIT MTIMER,@TXDBUF ;CHECK THE BIT 

BEQ 67$ BR IF CLEAR 

DEC (PC)+ ;DECREMENT THE NUMBER 

5 OF TIMES TO “a 

BNE 66$ :BR IF MORE TO GO 

TSTB @RXCSR + CHECK ior RECEIVER DONE 
BPL 2$ IF SET 

HLT 21 :DEVICE NSYNCS UP IN LESS THAN 2 SYNCS!! 
BR 5$ LEAVE 

BIS MMRESET,@TXCSR RESET THE DEVICE 

JSR PC, SMALL WAIT FOR RESET TO FINISH 


MOV #CRCEN!DECMOD ! 26, @PARCSR ;LOAD THE MODE AND SYNC CHAR 


BIS #RCVEN, @RXCSR ; TURN ON RECEIVER 
BIS #SYSTST,@TXCSR SENTER SYSTEM TEST MODE 
B1S #SEND ,a@TXCSR iT ON TRANSMITTER 

:OUTPUT A SYNC CHAR 


MOV #TSOM! 26, aTXDBUF 


TSTB aTXCSR ;CHECK DONE 

BPL 69$ ;BR IF NOT SET 

MOV #TSOM!26,aTXDBUF ;SEND SYNC 

TSTB a@TXCSR CHECK DONE 

BPL 3$ WAIT 

MOV #125, aTXDBUF ;LOAD DATA 

MOV #20,74 ;LOAD THE NUMBER 

BIT MTIMER,@TXDBUF ;CHECK THE TIMER BIT 

BNE 72$ BR IF SET 

BIT MTIMER,@TXDBUF ;CHECK THE BIT 

BEQ 73$ :BR IF he ae 

DEC (PC) + +e te THE NUMBER 

20 ; OF as 7, a 

BNE 72$ ; E TO GO 

TSTB @RXCSR CHECK FOR DONE 
BM! 4$ 7BR IF SET 

HLT 22 sFAILED TO RECEIVE DATA 
MOV @RXDBUF , TEMP 1 sREAD DATA 

CMPB #125, TEMP! ; CHECK hive 

BEQ 5% BR IF MA 

HLT 22 DATA COMPARE ERROR 
BIS WMRESET ,aTXCSR arts THE DEVICE 

JSR PC, SMALL ;WAIT FOR RESET TO FINISH 
SCOPE :SCOPE THIS TEST 


petaneeeeeeeeeee eek TEST 17 sce eee eee eee eee eee eee ee 
S*THIS TEST PROVES THE RECEIVER WILL STRIP THE FIRST 
;*TWO SYNCS AND wILL PRESENT ALL SUBSEQUENT SYNCS. 


PPTVTSTTTCTITICTITICTITICTTITITITTCTCTCCTTITITT TTT TTT Tet Tt tt tt) 


SEQ 0055 


: 3 


CZDPD-DO 1 3041952) 25-JUL-79 15:19 PAGE 57 

CZDPDD.P11 pag 79 15:0 THIRD AND SUBSEQUENT SYNC TEST SEQ 0056 
2755 
2756 pete eee 
2757 2 * 
2758 3 TEST V7 
2759 ; 
2760 . RRERERE REE 
2761 ST RT RRR ERE REAR ER EERE REE RR ERE REE RE REE 
2762 014720 012737 000017 001226 TST17: MOV #17 ,@ATSTNO 
2763 014726 012737 015142 001216 MOV #TST20,NEXT 
2764 014734 052777 164450 BIS #MRESET,@TXCSR ae THE DEVICE 
2765 014742 737 4 JSR PC,SMALL WAIT FOR RESET TO FINISH 

7 014746 012777 101026 164434 MOV ®DECMOD ! 26! CRCEN @PARCSR 
2767 014754 052777 164430 BIS MSYSTST,@TXCSR sENTER SYSTEM TEST MODE 
2768 014762 052777 000020 164414 BIS #RCVEN, @RXCSR ; LOAD RCVEN 
2769 014770 052777 000020 164414 BIS #SEND ,aTXCSR ; TURN ON TRANSMITTER 
2770 014776 012777 000426 164410 MOV #TSOM! 26,aTXDBUF OUT PUT A SYNC CHAR 
2771 015004 032777 004000 164402 64$: BIT #TIMER,@TXDBUF ;CHECK THE TIMER BIT 
2772 015012 001374 BNE 64$ ‘BR IF SET 
2773 015C0i4 032777 004000 164372 65$: BIT ATIMER,@TXDBUF ;CHECK THE TIMER BIT 
2774 015022 001774 BEQ 65$ 7BR IF CLEAR 
2775 015024 105777 164362 69$: TSTB @TXCSR CHECK DONE 
2776 015030 100375 BPL 69$ ;BR IF NOT SET 
2777 015032 012777 000426 164354 MOV he Stead ;SEND SYNC 
2778 015040 105777 164346 70$: TSTB @TXCSR ; CHECK DONE 
2779 015044 100375 BPL 70$ ;BR IF NOT SET 
2780 015046 012777 000426 164349 MOV #TSOM! 26,aTXDBUF ;SEND SYNC 
2781 015054 012737 000020 015104 MOV #20,75$ ;LOAD THE NUMBER 
2782 015062 032777 004000 164324 73$: BIT #TIMER, @TXDBUF ;CHECK THE TIMER BIT 
2783 015070 001374 BNE 73$ [BR IF SET 
2784 015072 032777 004000 164314 74$: BIT #TIMER,@TXDBUF ;CHECK THE BIT 
2785 015100 001774 BEQ 74$ [BR IF CLEAR 
2786 015102 005327 DEC (PC) + ;DECREMENT THE NUMBER 
2787 015104 000020 75$: 20 ;OF TIMES TO REPEAT 
2788 015106 001365 BNE 73$ [BR IF MORE TO GO 
2789 015110 105777 164270 TSTB @RXCSR ;CHECK FOR DONE 
2790 015114 100401 BMI 1$ :BR IF T 
2791 015116 104021 HLT 21 :DONE NOT SET=DEVICE FAILED TO SYNC UP 
2792 015120 117737 164262 001236 1$: MOVB @RXDBUF , TEMP 1 ;READ BUFFER 
2793 015126 122737 000026 001236 CMPB #26, TEMP) : CHECK FOR SYNC 
2794 015134 001401 BEQ 2$ [BR IF a 
2795 015136 104022 HLT 22 DATA ERROR 
a 015140 104400 2$: SCOPE :SCOPE THIS TEST 
2798 
2799 Dooce TEST 20) seater eee kent teen eee ee 
2800 *THIS TEST PROVES THE DUP11 WILL 
2801 :*IDLE SYNCS. IDLE 64. SYNCS 
2802 UTTCTTITITTTITICCITOTITTITITTITTTTT TTT Ti TTT TT ttt itt t iti t titi te 
2803 
2804 DD tk 
2805 : . 
2806 ; TEST 20 
2807 : 
2808 : RRRKKERRKEEE 
809 LIRA RE RRR E EERE REET RRR ERED 
T 


2 
2810 015142 012737 000020 001226 TST20: MOV #20 ,aA#TSTNO 





SN a ee eae 
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015354 
015356 
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012737 
052777 
004737 


164056 


000426 
001236 


164022 


164016 
000026 


075406 012737 000021 


25-JUL=79 15:19 PAGE 58 
CONTINUOUS SYNC TEST 
001216 MOV #TST21,NEXT 
164226 BIS wMRESET aTXCSR RESET THE DEVICE 
JSR C,SMALL ;WAIT FOR RESET TO FINISH 
164212 MOV AS DE CMOD 126! CRCEN. @PARCSR 
164206 BIS MSYSTST,@TXCSR sENTER SYSTEM TEST MODE 
164172 BIS ARCVEN, @RXCSR ; LOAD RCVEN 
164172 BIS #SEND, aTXCSR ; TURN ON TRANSMITTER 
164166 MOV #TSOM!26, aT XDBUF ‘OUTPUT A SYNC CHAR 
64$: TSTB aTXCSR : CHECK DONE 
BPL 645% IF NOT SET 
164152 MOV #TSOM! 26, @TXDBUF” ;SEND SYNC 
65$: TSTB aTXCSR HECK DONE 
BPL 5$ “BR IF NOT SET 
164136 MOV #TSOM! 26, aTXDBUF ;SEND SYNC 
CLR TEMP 1 
CLR TEMP2 
001236 MOV #64.,TEMP1 ;LOAD # OF SYNCS 
015324 MOV #10, 70$ ;LOAD THE NUMBER 
164104 68$: BIT MTIMER,@TXDBUF ;CHECK THE TIMER BIT 
BNE 68$ ‘BR IF SET 
164074 69$: BIT #TIMER,ATXDBUF ;CHECK THE BIT 
BEQ 69$ ‘BR IF CLEAR 
DEC (PC)+ ;DECREMENT THE NUMBER 
70$: 10 ;OF TIMES TO REPEAT 
BNE 68$ ‘BR IF MORE TO GO 
1$: 1STB @aTXCSR ; CHECK DONE 
I 2$ ;BR IF SET 
HLT 16 ;DONE FAILED TO SET 
164046 2$: MOV #TSOM! 26,aTXDBUF ;LOAD A SYNC 
DEC TEMP1 ;LOWER THE #4 OF SYNCS TO DO 
BNE 4$ [BR IF MORE TO GO 
3$: SCOPE ;SCOPE THIS TEST 
4$: TSTB A@RXCSR ; CHECK RECEIVER DONE 
BPL 4$ SWAIT TILL SET 
001240 MOV @RXDBUF , TEMP2 3GET THE BUFFER 
001240 CMPB #26, TEMP2 :CHECK IT FOR SYNC 
BEQ 1$ ;BR IF OK 
HLT 21 ; CHARACTER IS TEMP2 NOT A SYNC! 
BR 3% ;LEAVE TEST 
pttkektkekekekek eae eit TEST O11 RRRKRKRERERERERERE EERE 
:*THIS TEST PROVES THE STRIP SYNC 
> *FUNCTION OF THE RECEIVER. SYNC UP 
i*THE RECEIVER, SEND DATA WITH A SYNC 
:*CHARACTER IMBEDDED AND CHECK FOR 
: * THE SYNC TO BE RECEIVED. 
MASA A@eAR R22 SRS RRRS SRR RRR RR RRR RRR RRR RRR RRR RRR RRR RRR RRR RRR RES EE D 
2s tateneenenne 
3 * 
s TEST 21 
3: keke hkkkhheee 
FRAAAAARAAAAAAARARERAKERA TARA RARER ERE REE eeee 
001226 1121: MOV #21, aA4TSTNO 


SEQ 0057 
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015414 


015440 
015442 
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012737 
012737 
004537 
015714 
006774 

340 


052777 
004737 


016126 


163464 
163462 
000200 


004000 


25-JUL=79 


163652 


163636 
163614 


163610 


163574 


163560 


163544 


163522 
163512 


64$: 


65$: 


15:19 PAGE 59 


STRIP SYNC FUNCTION TEST SEQ 0058 
MOV ATST22,NEXT 
MOV #340,PS sRAISE STATUS 
JSR R5, SETVEC SET UP VECTORS 
5$ ;BASED ON 
NO.BTRAP ; THESE 
BYTE 340,340 ; PARAMETERS 
BIS tae £ aTXCSR nite a DEVICE 
JSR Li WAIT FOR RESET TO FINISH 
MOV ®DECMOD ! 26! CRCEN. SPARCSR 
BIS MSYSTST,aTXCSR sENTER SYSTEM TEST MODE 
BIS #RCVEN! STPSYN, ARXCSR ;LOAD RCVEN! STPSYN 
BIS AMSEND ,@TXCSR TURN ON TRANSMITTER 
MOV #TSOM! 26, aT XDBUF [OUTPUT A SYNC CHAR 
TSTB aTXCSR ; CHECK DONE 
BPL 64$ :BR IF NOT SET 
MOV Corea @TXDBUF SEND SYNC 
TSTB aTXCSR ECK DONE 
BPL 65$ “BR IF NOT SET 
MOV coeaers @TXDBUF SEND SYNC 
TSTB aTXCSR HECK DONE 
BPL 66$ “BR IF NOT SET 
MOV MTSOM!26,aTXDBUF ;SEND SYNC 
CLR PS ; LOWER 
BIS #MRINTEN, ARXCSR ; TURN ON INTERRUPTS 
TSTB tas SCHECK TX DONE 
BPL SWAIT FOR SET 
MOV #252, - eerancet ;LOAD A_CHARACTER 
TSTB aTxcs ; CHECK TX DONE 
BPL [WAIT TO BE SET 
MOV #26, a1 XDBUF ;LOAD THE SYNC CHAR 
TSTB aTXCSR : CHECK DONE AGAIN 
BPL 3$ ; WAIT 
MOV #125 ,aTXDBUF [LOAD ANOTHER CHARACTER 
TSTB aTXxCSR Ate DONE 
BPL 4$ WAIT 
MOV #TEOM, aT XDBUF :SET END OF MESSAGE 
BIC AMSEND ,aTXCSR TURN OFF TRANSMITTER 


69$: 


5$: 


6$: 


MOV #40. ,71$ 


AD THE NUMBER 


“LO 
BIT 4TIMER,@TXDBUF ;CHECK THE TIMER BIT 
BNE 9 SBR IF SET 
BIT MTIMER,@TXDBUF ;CHECK THE BIT 
BEQ 70$ BR IF CLEAR 
DEC (PC)+ ;DECREMENT THE NUMBER 
40. ;OF TIMES TO A 
BNE 69$ :BR IF ses My 
HLT 23 FAILED” To TAKE A RECEIVER INTERRUPT 
RECEIVER INTERRUPT SERVICE ROUTINE 
Ov @RXCSR,RO READ CSR 
MOV @RXDBUF ,R1 [READ BUFFER 
BIT #RXDONE ,RO ; CHECK FOR DONE 
BNE 6$ SBR IF SET 
HLT 24 RX DONE FAILED TO SET=ERRONEOUS INTERRUPT 
BIT MRECACT RO i; CHECK FOR ACTIVE 
BNE 7$ BR IF SET 


fa] 
CZ7DPD-D0 MACY11 PS baal 25-JUL=79 15:19 PAGE 60 
CZDPDD.P11 25-JUL-79 15:01 STRIP SYNC FUNCTION TEST SEQ 0059 
2923 015742 104025 HLT 25 RX ACTIVE FAILED TO SET 
2924 015744 73: 
2925 015744 005701 TST R1 Jag FOR ERROR 
2926 015746 1 BPL 10$ F NO ERROR 
2927 015750 104026 HLT 26 “RECEIVER ERROR 
2928 015752 122701 000252 10$: CMPB #252,R) ;CHECK FOR CORRECT DATA 
2929 015756 001401 BEQ 11$ ‘BR IF OK 
2930 015760 104022 HLT 22 :DATA FAILED TO MATCH 
2931 015762 012777 015772 163404 118: MOV #12$,aDUPRVC ;LOAD VECTOR 
2932 015770 55 BR 20$ ; CONT INUE 
2933 015772 017700 163406 12$: MOV @RXCSR,RO ;READ CSR 
2934 015776 017701 163404 MOV @RXDBUF ,R1 ;READ BUFFER 
2935 016002 032700 000200 BIT #RXDONE , RO ag FOR DONE 
2936 016006 001001 BNE 13$ ‘BR F OK 
2937 016010 104024 HLT 24 sRX DONE FAILED TO SET-FRRONEOUS INTERRUPT 
2938 016012 005701 13$: TST R1 ; TEST FOR ERROR 
2939 016014 10000 BPL 14$ ‘BR IF NO ERROR 
2940 016016 10402 HLT 26 sERROR SET 
2941 16020 122701 000026 14$: CMPB #26,R1 ; CHECK CHARACTER 
2942 016024 00142 BEQ 6$ ;BR IF OK-IF NOT, THEN 
2943 016026 122701 000125 CMPB #125,R1 [CHECK FOR CLEARING SYNC 
2944 016032 001402 BEQ 15$ ‘BR IF A NEXT CHARACTER 
2945 016034 104022 HLT 22 ; ERRONEOUS CHARACTER 
2946 016036 000415 BR 16$ : TO END OF TEST 
2947 016040 104021 15$: HLT 21 : STRIPPED OUT THE SYNC CHAR!! 
2948 016042 012777 016052 163324 MOV #21$,aDUPRVC ;SET UP VECTOR 
2949 016050 25 BR 20$ 7 LEAVE 
2950 016052 017700 163326 21$: MOV @RXCSR,RO ;GET CSR 
2951 016056 017701 163324 MOV @RXDBUF ,R1 ;GET BUFFER 
2952 016062 122701 000125 CMPB #125,R1 ;CHECK DATA 
2953 01 001401 BEQ 16$ ‘BR IF A MATCH 
2954 016070 104022 HLT 22 ;DATA COMPARE ERROR 
2955 016072 032777 004000 163304 16$: BIT #RECACT ,@RXCSR sTEST ACTIVE 
2956 016100 1001 BNE 17$ ;BR IF ON 
2957 016102 104025 HLT 25 sACTIVE SHOULD BE ON 
2958 016104 17$: 
2959 016104 052777 000400 163300 BIS AMRESET,@TXCSR ;RESET THE DEVICE 
2960 016112 004737 005044 JSR PC, SMALL ; T FOR RESET TO FINISH 
2961 016116 012706 001150 MOV ASTACK, SP sRESET STACK 
2962 016122 104400 SCOPE :SCOPE THIS TEST 
2963 016124 000002 20$: RTI ZRETURN 
2964 
2965 
2966 DOR tO IR RR ik TEST 22 xeeankeaanenanerneneeenenee | 
2967 S*THIS TEST PROVES THAT A BINARY COUNT 
2968 ;*PATTERN CAN BE RUN IN DEC MODE 
2969 + *W] THOUT A BCC CALCULATION 
2970 LEER RARER EERE REET RE REE ET REE e REE 
2971 Dee ek 
2972 ; 
2973 2 TEST 22 
2974 ; . 
2975 : Ree eke hhh 
2976 PRR ERR ERE EERE ER ERE ER EERE RRR RRR eRe eee 
2977 016126 012737 000022 001226 TST22: MOV #22,aATSTNO 
2978 016134 012737 016610 001216 MOV #TST23,NEXT 


CZDPD-DO 
CZ2DPDD.P11 


016142 


016374 


MACY11 ct a 


25-JUL=79 1 
012737 
005000 


052777 


012737 
Race 


000340 


006746 


004000 


163010 
163006 
004000 


016350 
000200 


016350 


25-JUL=79 
DATA 


177776 


163216 
163202 


163150 
163140 


163122 


163100 
163100 


016342 
163066 


163056 


163034 


64$: 
65$: 
69$: 


30$: 
72$: 
73$: 


74$: 


3$: 


4$: 


5$: 


6$: 


15:19 PAGE 61 

TEST 

MOV #340,PS 
RO 
R1 

JSR RS,SETVEC 


BYTE 340,340 
BIS #MRESET ,@TXCSR 
PC, SMALL 


eTTO”, DATA POINTER 


D 

SET UP_INTERRUPTS 
RECEIVER 

; TRANSMITTER 
SLEVEL 


tint THE DEVICE 
WAIT FOR RESET TO FINISH 


MOV #DECMOD ! 26! CRCEN. @PARCSR 


BIS AMSYSTST,@TXCSR 
BIS #RCVEN, @RXCSR 
BIS ASEND ,aTXCSR 


MOV #TSOM! 26, @TXDBUF 


BIT #TIMER,@TXDBUF 
BN 64$ 
BIT #TIMER,@T XDBUF 
65$ 
TSTB a@TXCSR 
69 


BPL 

MOV #TSOM! 26 ,aTXDBUF 
CLR PS 

BIS AMRINTEN, @RXCSR 
BIS MTXINTE,@TXCSR 
MOV #200 


-.74$ 
BIT #TIMER,@1 XDBUF 
72$ 
BIT #TIMER,a@1 XDBUF 
73$ 


DEC (PC)+ 
200. 

BNE 72$ 
HLT 23 


BIS #MRESET ,a@TXCSR 
PC, SMALL 
MOV ASTACK, SP 


RECEIVER INT SVC ROUTINE 
MOV @RXCSR,R2 


MOV @RXDBUF ,R3 
BIT Sint, eRe 


HLT 25 
MOV #3$, (SP) 
BR 12$ 
BIT ARXDONE ,R2 
BNE 6$ 
HLT 24 
MOV #3$, (SP) 
BR 12$ 

oT «3 


sENTER SYSTEM TEST MODE 
SLOAD RCV VEN 

; TURN ON TRANSMITTER 

SOUTPUT A SYNC CHAR 
:CHECK THE TIMER BIT 


BR IF SET 

CHECK THE TIMER BIT 
[BR IF CLEAR 

; CHECK DONE 


[BR IF NOT SET 
;SEND SYNC 


TURN ON INT ENABLES 
ITTO 


LOAD THE NUMBER 
; CHECK rie TIMER BIT 
:BR S 


IF SET 
;CHECK THE BIT 
7BR IF CLEAR 
;DECREMENT THE NUMBER 
;OF TIMES TO REPEAT 
IF MOR 


; E TO GO 

;FAILED TO FINISH TEST 
;RESET THE DEVICE 
;WAIT FOR RESET TO FINISH 


RESET THE STACK 
;SCOPE THIS TEST 


SAVE CSR 
SAVE BUFFER 
‘an IF RX ACTIVE 


F OK 
SACTIVE NOT SET 
; SETUP FOR RETURN 


ae iF DONE 


OK 
[FALSE INTERRUPT 
; SETUP FOR RETURN 


CHECK FOR ERROR 


SEQ 0060 


CZDPD-D0 
CPDPDD. P11 


3035 
36 


016540 


016542 


MACY11 eye? 
15:01 


25-JUL -79 


016350 


016350 


016350 
016504 


162674 
162672 


016359 


162646 


162634 


016312 


016610 012737 000023 
016616 012737 017432 001216 
016624 012737 000340 


25-JUL=79 
DATA 


162672 


162626 
162616 
162576 


177776 


15:19 PAGE 62 
TEST 





BPL 7$ ;BR IF NO ERROR 
HLT 26 ;DATA ERROR 
MOV #3$, (SP) ;SET UP RETURN 
BR 2$ 
7$: CMPB R1,R3 ; CHECK DATA 
BEQ 10$ BR IF 
HLT 22 ;BAD DATA 
MOV #3$, (SP) 7 SETUP RETURN 
BR 12$ 
10$: INC R1 ;UPDATE DATA 
BNE 11$ :BR IF MORE TO GO 
MOV #3$,°SP) > SETUP RE TURN 
11$: MOV #22$, aDUPRVC ;SETUP NEW RETURN FOR INTERRUPT 
12$: RTI RETURN 
2e$: MOV @RXCSR,R2 
MOV @RXDBUF ,R3 
TST R3 
BPL 23$ 
HLT 26 ; ERROR 
23% CMPB R1,R3 
BEQ 245% 
HLT 22 ;DATA COMPARE ERROR 
243: INCB R1 
BNE 12$ 
MCV #3$, (SP) 
BR $ 
3; TRANSMITTER 
17$: MOV RO, a1 XDBUF :PUSH OUT DATA 
INCB RO ; UPDATE IT 
BNE 21$ :BR IF MORE 
20$: TSTB aTxXcSR : CHECK FOR NEXT DONE 
BPL 20$ :WAIT 
BIS #TEOM, aT XDBUF :END MSG 
BIC #SEND!TXINTE,@TXCSR ;SHUT OF TRANSMITTER 
MOV #NO..BTRAP , ADUPTVC RESET VECTOR ADRS 
21$: MOV #30$, (SP) 
RT] ;RETURN 
DO tii ie iT ii i ik TEST 23 ROHR EAEERERREREEEERE EEE 
S*THIS TEST PROVES THAT A BINARY COUNT 
;*PATTERN CAN BE RUN IN DEC MODE 
*WITH A BCC CALCULATION USING 
: * THE CRC16 POLYNOMIAL 
AT RT RT TTR RR EEREEREREEEEEEEEEERE 
‘juetenshanonn 
: TEST 23 
. . 
peeeenanenGnes 
SERRA REAR RA ERE RE ERROR E RRA EER EERE ERE R REE ee 
TS123: MOV #23, a4TSTNO 
MOV #TST24,NEXT 
MOV #340,PS 


CZDPD=DO 
CZDPDD.P11 


3091 
3092 
3093 
3095 
3096 
3097 
3098 

00 
3101 
3102 
3103 
3104 
3105 
3106 


3107 


WWWWWNWWNIWN WN WNWNWNWWNWWNWNAG 
eS ee ee ee ee Pe eee 
— SS oes es ss Yt 


3125 
3 


Ww 
Ww 


ZS SBIKAK 


016710 
016712 


016714 


MACY11 ay lyse? 
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25-JUL-79 


052777 


012737 
032777 


017702 
017703 
032702 


004000 
162402 
000426 
177776 
000100 
000100 
000310 
004000 


004000 


000400 
005044 
001150 


162262 
162260 
004000 


25-JUL=79 15:19 PAGE 63 
DATA TEST WITH BCC CHECK 
CLR RO 
007152 MOV #CRC16,XPOLY ;SET THE POLYNOMIAL 
CLR CALBCC ;CLEAR OUT OLD BCC 
016670 1$: MOY . CALBCC,35$ ; LOAD AF 
MOV RO,2$ LOAD DAT 
JSR R5,SIMBCC ‘CALCULATE A SOFTWARE BCC 
8. ‘BASED 
2$: -WORD 0O ;ON THESE 
35$: -WORD 0 ; PARAMETERS 
INCB RO ;UPDATE DATA 
E 1$ Z IF MORE TO GO 
CLR RO :CLR OUT DATA POINTER 
CLR R1 DITTO 
JSR RS5,SETVEC ;SET UP INTERRUPTS 
4$ :RECELV VER 
17$ TRANSMITTER 
.BYTE 340,340 ;LEVEL 
162470 BIS #MRESET,@TXCSR RESET THE DEVICE 
JSR PC, SMAL { WAIT FOR ty TO FINISH 
162454 MOV #DECMOD ! 26, aPaRcéR ;LOAD THE MODE AND SYNC CHARACTER 
162450 BIS #SYSTST, aTXCSR sENTER SYSTEM TEST MODE 
162434 BIS #RCVEN, @RXCSR ; LOAD RCV VEN 
162434 BIS ASEND ,aTX 7 TURN ON TRANSMITTER 
162430 MOV #TSOM! 26, aTXDBUF SOUT PUT A SYNC CHA& 
162422 64$: BIT ATIMER,@TXDBUF ; CHECK THE TIMER BIT 
BNE 64$ ‘BR IF SET 
162412 65$: BIT #TIMER,@TXDBUF : CHECK THE TIMER BIT 
BEQ 5$ IF ct EAR 
69$: TSTB aTXCSR CHECK 
BPL 69$ : IF NOT SET 
162374 ae! + alan anitemaass ZSEND SYNC 
162352 BIS MRINTEN, @RXCSR ; TURN ON INT ENABLES 
162352 30s BIS ATXINTE,@TXCSR :DITTO 
017070 MOV #200. ,74$ LOAD THE NUMBER 
162340 72$: BIT A#TIMER,@TXDBUF ;CHECK THE TIMER BIT 
BNE 7 ‘BR IF SET 
162330 73$: BIT ATIMER,@TXDBUF ;CHECK THE BIT 
BEQ 73$ ‘BR IF CLEAR 
DEC (PC)+ ;DECREMENT THE NUMBER 
743%: 200. sOF TIMES TO REPEAT 
BNE 72$ ‘BR IF MORE TO GO 
35 HLT 23 sFAILED TO FINISH TEST 
162306 BIS WMRESET,@TXCSR ;RESET THE DEVICE 
JSR PC,SMALL ;WAIT FOR RESET TO FINISH 
MOV #STACK, SP sRESET THE STACK 
SCOPE :SCOPE THIS TEST 
;RECEIVER INT SVC ROUTINE 
4$: MOV @RXCSR,R2 SAVE CSR 


MOV @RXDBUF ,R3 
BIT #RECACT.R2 


SAVE BUFFER 
TEST RX ACTIVE 


SEQ 0062 


CZDPD=DO MACY1] ete? 25-JUL=79 15:19 PAGE 64 
CZDPDD.P11 25-JUL=79 15:01 DATA TEST WITH BCC CHECK 

017132 001004 : 5$ ;BR_IF OK 

0171 25 sACTIVE NOT SET 
017076 —" ; SETUP FOR RETURN 


BR 2 
000200 : ARXDONE ,R2 TEST DONE 
6$ BR IF Ok 


24 sFALSE INTERRUPT 
017076 13$ SETUP FOR RETURN 


;CHECK FOR ERROR 
IF NO ERROR 
26 “DATA ERROR 
017076 :SET UP RETURN 
BR 12$ 


CHECK DATA 
SBR IF OK 


22 ;BAD DATA 
017076 #3$, (SP) SETUP RETURN 
BR 12$ 


Rj UPDATE DATA 
11$ ;BR IF MORE TO GO 
017234 ogee ;SETUP TO FINISH TEST 


017324 162142 : #22$, @DUPRVC : SETUP NEW RETURN FOR INTERRUPT 
162144 : @RXCSR ‘TEST DONE 


WAIT 
162140 001236 MOV @RXDBUF , TEMP 1 [GET DATA 
162130 : @RXCSR ;CHECK DONE FOR HALF OF CRC 
BP 14$ WAIT 
162124 001240 @RXDBUF , TEMP2 MOVE IT 
001237 TEMP2, TEMP1+1 oor BCC CHARACTER 
001236 CALBCC, TEMP1 [BR IF A MATCH 
15$ sAFTER CHECKING IT 
27 :CRC_ COMPARE ERROR-~-THE 
+ SOF TWARE DOESN'T AGREE 


:THE LISTING FOR SPECIAL 
:CRC DEBUG AID TEST. 

032737 : A#CRCERR, TEMP2 ;CHECK FOR ERROR 

001001 16$ :BR IF OK 


104030 30 HARDWARE DETECTED CRC ERROR 
RECEIVER DOESN'T AGREE WITH 
WHAT THE TRANSMITTER SENT 
:SEE FRONT OF LISTING FOR 
:SPECIAL CRC DEBUG AID 

012716 017076 : #3$, (SP) [LOAD END OF TEST 

000743 BR 12$ ;RETURN 

017702 162054 

017703 162052 

005703 

0000 


1 1 
104026 
120103 
001401 





cy1} pa 19Se) 25-JUL=79 15:19 PAGE 65 
25-79 15:01 DATA TEST WITH BCC CHECK 


. 22 ;DATA COMPARE ERROR 
248: R1 


BN 12$ 
017234 162012 #13$,aDUPRVC 
BR 12$ 


; TRANSMITTER 
162024 : MOV RO, @TXDBUF PUSH QUT DATA 
RO UPDATE IT 


BNE 21$ BR IF MORE 
162012 : 208 Ait FOR NEXT DONE 


62004 #TEOM, aT XDBUF SEND MSG 
61774 #SEND!TXINTE, @TXCSR ;SHUT OF TRANSMITTER 
61754 #NO .BTRAP , aDUPT VC ;RESET VECTOR ADRS 
#30$, (SP) 
RETURN 


1 
1 
1 


SRKKESS 
ONAU EWR O 


aoooomooaoooooooin TEST 24 soon tin tm th ttt 
;*TEST TO PROVE THE DEVICE IDLES SYNCS AND 
s*WILL SHIFT OUT DATA AT THE APPROPRIATE TIME 


: ‘MASA AAESAASASAAAASAALASAAARARSAE RASA RARRRR RRR RRR RRR SRR RSS SS ES S| 


SKK KKK EK KKK 


; TEST 24 


* 
+ rR i kkk kik 
SUIS IOIUIOIUIOISIOIDISICISISIIOIIUIOIOIIOIOIOIOIOIOISIOIDIOIOIDIDIDIOIIDIDIDIIDIDIUIUIUIUIUIDIUIII IO tot 
017432 012737 001226 TST24: #24 ,@ATSTNO 
001216 MOV #TST25 NEXT 
161736 MMRESET,@TXCSR ;RESET THE DEVICE 
PC, L :WAIT FOR RESET TO FINISH 
161724 MMMODE,aTXCSR ;ENTER MAINT MODE 
SR ; TURN ON RECEIVER 
sENTER DECMODE AND SYNC CHAR 
x ; TURN ON’ TRANSMITTER 
161676 MOV #TSOM! 26, aTXDBUF [PUSH OUT SYNCS 


161664 MOV #252, aTXDBUF LOAD DATA 
.cU. :PUSH OUT ANOTHER SYNC 
@RXCSR ;CHECK TO SEE IF SYNC ARRIVED 
1$ :BR IF YES 


21 
001324 1$: @RXDBUF ,DATA :GET THE REC CHAR 
001324 MPB eon : CHECK , <n SYNC 


BR IF 
H 21 FAILED TO RECEIVE THIRD SYNC 
161620 2$: AMSEND ,@TXCSR ;TURN OFF TRANSMITTER 
Pi 14. ;PUSH OUT DATA 
161602 TSTB os ie oe REC DATA 


26 ‘FAILED TO GET A DATA DONE 





CZDPD-DO MACY11 ese) 25-JUL=79 15:19 PAGE 66 

CZDPDD.P11 25-JUL-79 15:01 SYNC AND DATA TEST SEQ 0065 
3259 017606 017737 161574 001324 3$: MOV @RXDBUF , DATA ;GET THE DATA 
3260 017614 122737 000252 001324 CMPB #252,DATA = COMPARE IT 
3261 017622 001401 BEQ 4$ ;BR IF A MATCH 
3262 017624 104022 HLT 22 :DATA ERROR 
3263 017626 104400 4$: SCOPE ;SCOPE THIS TEST 
3264 
3265 
3266 LURE RARER ERE REE ER ee TEST 25 eee eee eee eee ehhh k 
3267 S*TEST TO PROVE THE DEVICE WILL 
3268 ; *WORK WITH EVERY POSSIBLE SYNC CHARACTER 
3269 PERERA EEE 
3270 ; eeneenseneee 
3271 ; 
3272 :; TEST 2 
3273 3 ® 
3274 ; PRR RR 
3275 CII I IORI ISIS IOI IIUISICIOIIDIIIOIDIOIIUIUIIIDICIIIUIIIIIDIUIOIUIOINIIDIOIIUIOIOI IO fot i 
3276 017630 012737 000025 001226 TST25: MOV #25 ,@ATSTNO 
3277 017636 012737 020110 001216 MOV #TST26, NEXT 
3278 017644 012737 000340 177776 MOV #340,PS 
3279 017652 012702 000003 MOV #3,R2 ;SET UP # OF SYNC 
3280 017656 005037 001236 CLR TEMP) 
3281 017662 005037 001240 CLR TEMP2 
3282 017666 005000 CLR RO ;CLEAR OUT DATA é 
3283 017670 005001 CLR R1 [CLEAR SYNC 
3284 017672 052737 000400 001236 BIS #TSOM,TEMP1 ;LOAD TSOM 
Ser Bi rrhe 052737 101000 001240 13 BIS #DECMODE ! CRCEN, TEMP2 ;LOAD DEC MODE 
3287 017706 052777 000400 161476 BIS AMRESET,@TXCSR ;RESET THE DEVICE 
3288 017714 004737 005044 JSR PC, SMALL ;WAIT FOR RESET TO FINISH 
3289 017720 052777 000020 161456 BIS #RCVEN, ARXCSR 
3290 017726 013777 001240 161454 MOV TEMP2, @PAR CSR ;LOAD THE MODE AND SYNC CHARACTER 
3291 017734 052777 004020 161450 BIS #SYSTST! SEND, aTXCSR ; TURN ON MODE AND TRANSMITTER 
3292 017742 105777 161444 2s: TSTB aTXCSR s TEST FOR DONE 
3293 017746 100375 BPL 2s WAIT 
3294 017750 013777 001236 161436 MOV TEMP1 , aT XDBUF ;LOAD TSOM AND SYNC CHAR 
3295 017756 005302 DEC R2 ;DECREMENT # OF SYNCS TO SEND 
3296 017760 001370 BNE 2$ ;BR IF MORE TOO GO 
3297 017762 7$: 
3298 017762 032777 004000 161424 64$: BIT MTIMER,@TXDBUF ;CHECK THE TIMER BIT 
3299 017770 001374 : ; BNE 64$ BR IF SET 
3300 017772 032777 004009 161414 65$: BIT #TIMER,@TXDBUF : CHECK THE TIMER BIT 
3301 920000 001774 BEQ 5$ 73R IF CLEAR 
3302 020002 105777 161376 TSTB @RXCSR 
3303 020006 100405 BM! 3$ 
3304 020010 005200 INC RO 
3305 020012 022700 000040 CMP #40,R0 
3306 020016 001361 BNE 7$ 
3307 020020 104015 HLT 15 ;DONE FAILED TO SET AFTER THIRD SYNC 
3308 020022 017737 161360 001244 3$: MOV @RXDBUF , TEMPS ;GET THE BUFFER 
3 020030 032737 004000 001242 BIT #RECACT, TEMP3 sTEST ACTIVE 
3310 020036 001001 BNE 4$ ‘BR IF SET 
3311 020040 104025 HLT 25 TACTIVE FAILED TO SET 
3312 020042 005737 001244 4$: TST TEMP4 ; TEST FOR ERROR 
3313 020046 100001 BPL 5$ ;BR IF NO ERROR 
3314 020050 104026 HLT 26 ;HARDWARE ERROR 





B 6 
MACY11 Mesa 25-JUL=79_ 15:19 PAGE 67 
25-JUL-79 15:0 TEST OF ALL POSSIBLE SYNC CHARACTERS 


001236 001244 S$: TEMP1, TEMP4 : COMPARE SYNCS 
6$ ;BR IF OK 
ie 22 ‘SYNC CHAR DOES NOT MATCH SENT 
000003 j #3,R2 :SET UP FOR NEXT SYNC 
RO ‘DITTO 


R1 :DITTO 
001236 R1,TEMP1 
001240 R1,TEMP2 
1$ ;BR IF MORE TO GO 
;SCOPE THIS TEST 


petkakekkhenkeneekenkennite TEST 26 sce e ee eee eee Ee te 
:*THIS TEST PROVES THAT THE CRC ERROR BIT FUNCTIONS 
:*CORRECTLY. FORCE AN ERROR AND VERIFY THE BIT. 


LIRA ERE EERE EERE ERE ERE ERE EER Ee 
RARER 


; 1EST 26 


kee RRRR ER 
SOIREE IOUS IIUIOIIIUIIUIOUUUIIOOD EE EE EEE. RETR RE htt 
ST26: #26, a4TSTNO 
#TST27,NEXT 
#340,PS sRAISE PROCESSOR STATUS 
R5,SETVEC ; SETUP VECTORS 
RECEIVER 
; TRANSMITTER 


LEVEL 
;CLEAR CHAR COUNT 


MMRESET,@TXCSR ;RESET THE DEVICE 
PC, { ;WAIT FOR RESET TO FINISH 
#DECMOD ! 26, @PARCSR ;LOAD THE MODE AND SYNC CHARACTER 
#SYSTST ,aTXCSR sENTER SYSTEM TEST MODE 
;LOAD RCVEN 
; TURN ON TRANSMITTER 
jOUTPUT A SYNC CHAR 


340, 340 
R1 


000426 
161170 


64$ 7BR 
000426 MOV #TSOM! 26,81 XDBUF 
161154 : aTXCSR 3 CHECK 
BP 65$ : 


161146 #TSOM! 26 ,aTXDBUF N 

PS ;LOWEP PROCESSOR STSTUS 
161124 MRINTEN,@RXCSR ; TURN ON INTERRUPT ENABLES 
052777 161124 MTXINTE,@TXCSR ;DITTO 


012737 000040 020316 #32. ,70$ LOAD THE NUMBER 
161112 : ATIMER, aT XDBUF ae c THe TIMER BIT 


BN BR IF 
161102 : #TIMER,@TXDBUF CHECK THE BIT 
69$ :BR IF CLEAR 
(PC)+ ;DECREMENT THE NUMBER 
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CZDPDD.P11 25-JUL-79 15:01 CRC ERROR CHECK TEST SEQ 0067 
3371 020316 000040 70$: 32. ;OF TIMES TO REPEAT 
3372 020320 001365 BNé 68$ [BR IF MORE TO GO 
3373 020322 104023 HLT 23 ;FAILED TO FINISH TEST 
3374 020324 2$: 
3375 020324 052777 000400 161060 BIS AMRESET,aTXCSR nts THE DEVICE 
3376 020332 004737 005044 JSR PC,SMALL WAIT FOR RESET TO FINISH 
3377 020336 012706 001150 MOV MSTACK, SP “RESET THE STACK 
3378 020342 104400 SCOPE 
3379 
3380 
3381 ; INTERRUPT SERVICE ROUTINES 
3382 > TRANSMITTER 
3383 020344 005000 3$: CLR RO ZCLEAR DATA 
3384 020346 010077 161042 MOV RO, @TXDBUF ;LOAD DATA TO BUFFER 
3385 020352 012777 020362 161020 MOV #4$ , aDUPTVC :SETUP FOR NEXT INTERRUPT 
3386 020360 000411 BR 5$ TLEA VE 
3387 020362 012777 001000 161024 4$: MOV #TEQM, aT XDBUF ;END OF retort CRC 
3388 020370 042777 000120 161014 BIC #SEND! TXINTE, aTxCSR ; TRUN OFF THE 
3389 020376 012777 006774 160774 MOV #NO.BTRAP, aDUPTVC : TRANSMITTER AND TXINTEN 
3390 020404 012716 020266 5$: MOV #1$, (SP) 3; SETUP TO RETURN 
$350 920410 000002 RTI RETURN 
3393 sRECEIVER 
3394 020412 017737 160770 001324 6$: MOV @RXDBUF , DATA ;GET THE DATA 
3395 020420 005201 INC R1 ;CHECK FOR LAST CHAR 
3396 020422 022701 000004 CMP #4 R1 AND BRANCH IF 
3397 020426 001007 BNE 10$ sNOT YET 
3398 020430 032737 010000 001324 BIT #CRCERR,DATA ;CHECK FOR CRC ee 
3399 020436 001401 BEQ 7$ BR IF CRC ERROR SEEN 
3400 020440 104014 HLT 14 sFAILED TO CATCH CRC ERRCR!!!!! 
3401 020442 012716 020324 7$: MOV #23, (SP) sFINISH TEST 
3402 020446 000002 10$: RT] RE TURN 
a 
3405 ptkkkkekkkkhkhkeeakekeen TEST 27 RERRAREERREREREAER EERE 
34 :*THIS TEST PROVES THE DEVICE WILL HANDLE THE 
3407 :*DDCMP PROTOCALL. SEND AND RECEIVE SYNCS, 
3408 :*FOLLOWED BY DATA,BCC,DATA AND FINAL BCC. 
3409 III III IIIOIUIOIIOISIUIOIIUIIIOI IIIS IIIIIIDIOIIDIIDIDIBDIIDIDIDIDININIDINII I itt 
3410 
3411 DERE A RRR 
3412 3 
3413 : TEST 27 
3414 ; 
3415 DDS Re 
3416 DIO III RRR RRR R ERR EERE RE RARER EER RE Ee 
3417 012737 001226 TST27: MOV #27 ,@ATSTNO 
3418 020456 012737 021454 001216 MOV #TST30,NEXT 
3419 020464 012737 000340 177776 MOV #340 ,PS ;RAISE PROCESSOR STATUS 
3420 020472 004537 006746 JSR R5,SETVEC :SET UP VECTORS 
3421 020476 021104 10$ ;BASED ON 
3422 020500 020726 2$ THE SE 
3423 020502 340 340 -BYTE 340,340 PARAMETERS 
3424 020504 005037 001236 CLR TEMP 1 
3425 020510 005037 001240 CLR TEMP2 
3426 020514 005037 001242 CLR TEMP 3 
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DDCMP MODE CHECK 
CLR TEMPS 
CLR TEMP5 
160654 BIS MMRESET ,@TXCSR art MY THE DEVICE 
JSR PC, SMALL ;WAIT FOR RESET TO FINISH 
160640 MOV #DECMOD ! 26, aPARCSR ;LOAD T 
160634 BIS WSYSTST,@TXCSR sENTER SYSTEM TEST MODE 
160620 BIS #RCVEN! STPSYN, @RXCSR ;LOAD RCVEN! STPSYN 
160620 BIS MSEND ,aTXCSR :TURN ON TRANSMITTER 
160614 MOV #TSOM! 26,aTX ;OUTPUT A SYNC CHAR 
643: TSTB aTXCSR ; CHECK DONE 
BPL 64$ :BR IF NOT SET 
160600 MOV ATSOM!26,aTXDBUF  ;SEND SYNC 
65$: TSTB aTXCSR 3 K DONE 
BPL 65$ IF NOT SET 
160564 MOV #TSOM!26,aTXDBUF ; SEND SYNC 
160546 BIS #MRINTEN, ARXCSR ‘to ON INTERRUPTS 
160546 BIS AMTXINTE,A@TXCSR ;DIT 
1008 CLR PS LOWER PROCESSOR STATUS 
020700 MOV #100. ,70$ LOAD THE NUMBER 
160530 68$: BIT MTIMER, @TXDBUF ; CHECK rie TIMER BIT 
BNE 68 :BR IF SET 
160520 698: BIT ATIMER, @TXDBUF ;CHECK THE BIT 
BEQ 69$ 7BR IF CLEAR 
DEC (PC) + ;DECREMENT THE NUMBER 
70$: 100. OF TIMES TO REPEAT 
BNE 68$ ;BR IF MORE TO GO 
- HLT 23 ;FAILED TO FINISH TEST 
160476 BIS MMRESET,@TXCSR ;RESET THE DEVICE 
JSR PC, SMALL sWAIT FOR RESET TO FINISH 
MOV #STACK, SP RESET THE STACK 
SCOPE :SCOPE THIS TEST 
; INTERRUPT edad § ROUTINES 
; TRANSMITTER 
160460 2$: MOV #252 ,aTXDBUF ; LOAD FIRST DATA CHAR 
001236 MOV #26, TEMP1 D DATA 
160430 MOV #3$.aDUPTVC RELOAD VECTOR 
BR 7$ LEAVE 
160434 3$: MCV TEMP1,aTXDBUF  :MOV DATA bs BUFFER 
INCB TEMP1 UPDATE DAT 
001236 CMPB #32,TEMP1 CHECK FOR DONE 
BNE 7$ ;BR IF MORE TO SEND 
160376 MOV #4$ ,QDUPTVC RELOAD VECTOR 
BR 7$ RETURN 
160402 4$: MOV MTEOM,aTXDBUF ;PUT OUT BCC 
160360 MOV #5$,aDUPTVC RELOAD VECTOR 
BR 7$ RETURN 
160364 5$: MOV TEMP2,@TXDBUF ;LOAD DATA 
INCB TEMP UPDATE DATA 
001240 CMPB #100, TEMP2 CHECK FOR FINISH 
BNE 7$ 7BR IF MORE TO GO 
160326 MOV #6$ , ADUPTVC RELOAD VECTOR 


HE MODE AND SYNC CHARACTER 


SEQ 0068 
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DDCMP MODE CHECK 


BR 7$ RETURN 
MOV #TEOM,@TXDBUF  :PUSH OUT DATA BCC 
BIC #SEND i TXINTE . aTXCSR :SHUT DOWN TRANSMITTER 
MOV O.BTRAP, aDUPTVC “RESET VECTOR 
MOV 71008, (SP5 : SETUP RETURN 
RTI ‘RETURN 
:RECEIVER 
MOV @RXCSR,TEMP3 —s«s SAVE CSR 
V @RXDBUF,TEMP4  :SAVE BUFFER 
TSTB —s TEMP3 “CHECK FOR DONE 
BMI 11$ ‘BR IF SET 
HLT 24 :FALSE INTERRUPT 
TST TEMP ‘CHECK FOR ERROR 
BPL 12$ ‘BR IF NO ERROR 
HLT 26 ‘RECEIVER ERROR 
CMPR «#252, TEMP4 >CHECK DATA 
BEQ 13$ ‘BR IF A MATCH 
HLT ‘DATA COMPARE ERROR 
MOV #26, TEMPS :LOAD NEXT EXPECTED 
MOV #14$,aDUPRVC —; RELOAD VECTOR 
BR 26$ “LEAVE 
MOV @RXDBUF,TEMP4  :GET DATA 
TST TEMP4 “CHECK FOR ERROR 
BPL 15$ ‘BR IF NO ERROR 
HLT 26 “DATA ERROR 
CMPB —s TEMPS, TEMP4 :CHECK DATA 
BEQ 16$ :BR IF A MATCH 
HLT “DATA COMPARE ERROR | 
INCB TEMPS :UPDATE DAT 
CMPB ss #32, TEMPS =CHECK FOR FIRST PART FINISH 
BNE 26$ :BR IF MORE TO GO 
MOV #17$,aDUPRVC =; SET UP NEXT VECTOR 
BR 26$ LEAVE 
MOV SRXDBUF.TEMP4 GET THE BUFFER 
TST TEMP4 ‘TEST FOR ERROR 
BPL +4 ‘BR IF OK 
HLT 26 [RECEIVER ERROR 
MOV #18$, ADUPRVC ;RELOAD THE VECTOR 
BR 26$ LEAVE 
MOV @RXDBUF DATA —s:GET_- DAT 
BIT ACRCERR.DATA : CHECK FOR CRC ERROR 
BNE 19$ F OK 
HLT 14 ERROR! !!!!! 
MOV #20$, aDUPRVC ore UP VECTOR 
CLR MIND ; SETUP FOR NEXT DATA 
BR 26$ EAVE 
MOV SRXDBUF..TEMP4  =GET DATA 
TST TEMP4 *CHECK FOR ERROR 
BPL 21$ ‘BR IF NO ERROR 
HLT 26 “RECEIVER ERROR 
CMPB = MIND, TEMP4 :CHECK DATA 
BEQ 22$ :BR IF A MATCH 
HLT 22 “DATA ERROR 
INCB MIND “UPDATE SOFTWARE DATA 


SEQ 0069 
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DDCMP MODE CHECK SEQ 0070 
001330 CMPB #100,MIND ;CHECK FOR FINISH 
BNE 26$ ;BR IF MORE TO GO 
157774 MOV #23$,@DUPRVC sRELOAD FINAL VECTOR 
BR 26$ ;LEAV Meat 
001244 23%: MOV @RXDBUF , TEMPS ‘GET 
TST TEMP4 CHECK FOR ERROR 
BPL 24$ BR IF OK 
HLT 26 “RECEIVER ERROR ON FIRST OCTET 
é ECOND BCC 
243: TSTB @RXCSR ; TEST DONE 
BPL 24$ ;BR IF NOT SET 
001324 MOV @RXDBUF ,DATA ;GET SECOND BCC OCTET 
001324 BIT #CRCERR,DATA =: CHECK FOR BCC ERROR 
BNE 25$ ‘BR IF OK 
HLT 14 ;BCC ERROR ON SECOND PART OF MSG 
25$: MOV #1$, (SP) ;SETUP TO FINISH TEST 
26$: RTJ RETURN 
petkakeeke kane TEST 30 saearaea nee e ener en eterna et 
S*THIS TEST IS AN AID FOR DEBUGGING CRC 
ERRORS A CHARACTER IS LOADED INTO THE 
;*DUP AND PUSHED OUT BIT BY BIT WHILE 
;*ALLOWING THE OPERATOR TO MONITOR THE CRC 
 *CHARACTER AS IT IS GENERATED. THE DATA CHARACTER 
;*CAN ALSO BE CHANGED BY THE OPERATOR. 
*PUT SWO9=1 TO LOCK ON BITS. TO CONTINUE HIT 
: *ANY KEY ON THE TTY. AFTER 16 TIMES PUT DOWN SWO9 10 LEAVE 
TAR RTT RRR ERE RE REAR E EERE REE EERE REE 
3 thektenenene 
3; TEST 350 
: * 
TERK ERR 
SI REE REE RARER REAR ERA EERE ERE ERE ERE ERE REE 
001226 15130: MOV gt ft he 
001216 MOV # EOP ,.NEX 
157714 BIS WMRESET, SIXCSR sRESET THE DEVICE 
JSR PC, SMALL WAIT FOR RESET TO FINISH 
007152 MOV #CRC16, XPOLY [LOAD THE POLYNOMIAL 
021656 MOV #125, 3$ ;LOAD DATA TO SOF TWARE BCC-CHANGE CHARACTER HERE 
001252 MOV 3$, SAVR1 
CLR CALBCC :CLEAR FOR SOFTWARE BCC 
021660 MOV CALBCC 4% 
CLR TEMP3 
CLR TEMP4 ;CLEAR BIT COUNTER 
CLR TEMPS 
157630 MOV MDECMOD!26,@PARCSR ;LOAD MODE AND SYNC CHARACTER 
157624 BIS #MMODE ,aTXCSR ;ENTER MAINT MODE-PROGRAM CLOCKING 
157610 BIS ARCVEN! STPSYN, @RXCSR Aig ON RECEIVER 
157610 BIS #SEND ,aTXCSR ; TURN ON TRANSMITTER 
157604 MOV ATSOM! 26,aTXDBUF ;LOAD A SYNC 
PKCLK 36. :PUSH OUT 2 SYNCS 
157572 MOV 3$, aTXDBUF [LOAD DATA 
PKCLK » 1s ;PUSH OUT ANOTHER SYNC 


— 
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3595 021626 104412 000002 1$: PKCLK ,e ;PUSH OUT A BiT 
3596 021632 013737 001244 001254 MOV TEMPS, SAVR2 SET UP TO TYPE 
3597 021640 005237 001242 INC TEMP 3 
3598 021644 005237 001244 INC TEMP4 ;UPDATE BIT COUNTER 
3599 021650 004537 007000 2$: JSR R5,SIMBCC, ;CALCULATE SOFTWARE BCC BASED ON THESE PARAMETERS 

021654 000001 1 SHIFTS 
3601 021656 000000 3$: .WORD 0 DATA 
3602 021660 000000 4$: .WORD 0 ;PREVIOUS BCC 
3603 021662 004737 021760 JSR PC,5$ sCHECK TO SEE IF WE SHOULD WAIT FOR SCOPING 
3604 021666 000241 CLC ;CLEAR FOR NEXT ROTATE 
3605 021670 106037 021656 RORB 3$ ;SET UP THE NEXT BIT 
3606 021674 013737 007156 021660 MOV CALBCC,4$ :FOR THE SOFTWARE BCC 
3607 021702 022737 000006 001244 CMP #6, TEMPS 

021710 001002 BNE +6 
3609 021712 005077 157476 CLR a7 XDBUF 
3610 021716 022737 000014 001242 CMP #12.,TEMP3 
3611 021724 001003 BNE 12$ 
3612 021726 012777 001000 157460 MOV #TEOM, aT XDBUF 
3613 021734 022737 000020 001244 12$: CMP #16., TEMPS sALL DONE WITH THE CHARACTER? 
3614 ; INCREASE COMPARE # TO FORCE 
3615 :;CRC OUT OF THE GENERATOR 
3616 021742 001331 BNE 1$ ;BR IF MORE TO GO 
3617 021744 052777 000400 157440 BIS MMRESET,@TXCSR ;RESET THE DEVICE 
3618 021752 004737 005044 JSR PC, SMALL ;WAIT FOR RESET TO FINISH 
gh 021756 104400 SCOPE :SCOPE THIS TEST 
3621 021760 032777 001000 157214 5$: BIT #SWO9,aSWR ;SWO9=1? 
3622 021766 001432 BEQ 6$ ;BR IF NO 
3623 021770 013704 007156 MOV CALBCC,R4 : THE DATA CHARACTER IS ALWAYS 
3624 021774 012737 000001 001256 MOV #1,SAVR3 sFOLLOWED BY A ZERO. THE DATA IN 
3625 022002 000241 CLC sCRC SHOWS WHICH BIT OF THE 2 CHARS 
3626 022004 006004 11%: ROR R4 ;1S BEING GENERATED 
3627 022006 006137 001256 ROL SAVR3 
3628 022012 103374 BCC 11$ 
3629 022014 105737 001246 TSTB TEMPS 
3630 022020 001006 BNE 10$ 
3631 022022 104402 023152 TYPE /—EM17 ; TYPE MSG 
3632 022026 104402 023201 TYPE ,MH1 TYPE HEADER 
3633 022032 105137 001246 COMB TEMPS 

2036 104410 10$: CONVRT 

3635 022040 023522 DT1 
3636 022042 105777 157136 7$: TSTB alKCSR ;CHECK TTY DONE--GO SCOPE THE CRC GENERATOR 
3637 022046 100375 BPL 7$ :BR IF NOT YET 
3638 022050 017701 157132 MOV @TKDBR,R1 sREAD THE BUFFER 
3639 022054 000207 6$: RTS PC :RE TURN 
sei 
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CRC DEBUGGING AID TEST 


<377>/UNEXPECTED 
<377>/TRANSMITTER DONE / 
<377>/RECEIVER DONE / 
<377>/TRANSMITTER ACTIVE / 
Sane at ACTIVE / 


/FAILED TO CLEAR. / 
<377>/SYNC ERROR ‘ 
<377>/DATA ERROR / 
<377>/DEVICE FAILED ay INTERRUPT IN TIME / 
<377>/FALSE INTERRUPT 

<377>/TRANSMITTER BCC ERROR IN DEC MODE 
<377>/RECEIVER BCC ERROR IN DEC MODE 
<377>/RECEIVER ERROR / 
<377>/BCC ERROR!! 
<377>/CRC GENERATOR STATUS / 
<377>/DATA CHAR 


a ee a a ee ee a ee ee ee a Re ee 
Le he he Li hi hi Le a he he Lh a Le he ee le ee Le a ee 


x 4 


OOMoOooO 
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=z 
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mn 
x 
N 





<377>/DUP FAILED TO a ar ga IN TIME / 
<377>/DATA COMPARE ERROR 

<377>/END OF Sy es / 
<377>/BCC ERROR / 
Sante rate DONE / 


TO SE 
<377>/RECEIVER Poa? IN HALF=DUPLEX / 
<377>/FALSE INTERRUPT 

<377>/ABORT SEQUENCE ERROR / 

<377>/START OF MESSAGE / 

<377>/UNEXPECTED RECEIVER INTERRUPT / 
TRANSMITTER INTERRUPT / 


/ 


DATA BIT IN CRC GEN. 


ZHALT 1 
sHALT2 
HALT 3 


ZHALT 4 


a 


HALT 5 


J 


CRC FOR THIS BIT 


023462 000000 0 
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C2DPDD.P11—-25=JUL-79 15:01 Che DeBuGING AID TEST SEQ 0073 
(1) 023342 000000 0 SHALT 6 
(1) 028544 000000 0 
(1) 023346 022310 EM10 
(1) 023350 000000 0 :HALT 7 
1) 023352 000000 0 
(1) 023354 022332 EM11 
(1) 023356 000000 0 sHALT 10 
(1) 023360000000 0 
(1) 023362 022361 EM12 
(1) 023364 022225 EMG HALT 11 
1) 028366 000000 0 
(1) 023370 022404 EM13 
(1) 023372 000000 0 HALT 12 
(1) 023374 000000 0 
(1) 023376 022444 ° EM14 
(1) 023400 000000 0 SHALT 13 
(1) 028402 000000 0 : 
(1) 023404 023134 EM16 
(1) 023406 000000 0 SHALT14 
(1) 9234610 000000 0 
(1) 023412 022532 EM21 
(1) 023414 022621 EM24 —-:HALT15 
(1) 023416 060000 0 
(1) 
(1) 023420 022507 EM20 
(1) 023422 022621 EM24 ss SHALTI6 
1) 028424 000000 0 
(1) 023426 022552 M22 
(1) 023430 022621 EM24 ss HALTI7 
(1) 028432 000000  s 
(1) 023434 022552 EM22 
(1) 023436 022641 EM25 ss HALT20 
(1) 023440 000000 0 
{ 
(1) 023442 022463 EM26 
(1) 023444 000000 0 SHALT21 
(1) 023446 000000 0 
(1) 023450 022700 M27 
(1) 023452 000000 0 :HALT22 
1) 023454 000000 0 
(1) 023456 022715 M30 
1) 928469 900000 0 :HALT23 
(1) 
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PDD .P11 25-JUL=79 15:0 CRC DEBUGGING AID TEST SEQ 0074 
(1) 023464 022762 —M31 
(1) 023466 000000 0 SHALT24 
Ht 023470 000000 0 
(1) 023472 022577 EM23 
(1) 023474 022621 EM24 sHALT25 
a3 023476 000000 0 
(1) 023500 023113 EM15 
(1) 023502 000000 0 sHALT26 
ay 023504 000000 0 
(1) 023506 023004 EM32 
(1) 023510 060000 0 SHALT 27 
Hh 023512 000000 0 
(1) 023514 023051 EM33 
(1) 023516 000000 0 HALT 30 
(1) 023520 000000 0 
(1) 023522 000003 DT1 3 
(1) 023524 006 021 BYTE 6,17. 
(1) 023526 001252 SAVR1 
(1) 30 017 -BYTE 6.15. 
(1) 023532 001254 SAVR2 
(1) 34 002 -BYTE 6,2 
Ah 023536 001256 SAVR3 
(1) 023540 CORMAX : 
3643 000001 .END 
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CZDPDD.P11 25-JUL=79 15:01 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0075 


ADRCNT= 003735 1283* 1319* 13284 

BCCFBK 007154 1714* 1720" 1723* 1726 1730 17424 

BINWRD 004240 1370* 1371 14084 

BITw = 002 7604 

BITO = 1 6224 742 1718 

BIT] = 2 6214 741 

BIT10 = 002000 6124 732 747 760 780 

BIT11 = 004000 6114 731 759 779 

BIT12 = 010000 6104 730 746 753 758 778 

BIT13 = 020000 6094 729 757 777 

BIT14 = 040000 6084 728 745 756 776 1042 1190 

BIT15 = 100000 6074 727 744 751 755 775 1039 

BIT2 = 6204 740 1128 

BITS = 000010 6194 739 766 

Bi™% = 000020 6184 738 765 

BifS = 6174 737 

BIT6 = 000100 6164 736 764 

BIT? = 000200 6154 735 763 

BIT8 = 6144 734 749 762 782 

BIT9 = 001000 6134 73 748 752 761 781 

BRW 1134 12124 

BRX 003310 1135 12134 

CALBCC 007156 1736* 1743 2071* 2072 2166* 2167 2197" 2198 2292" 2293 2521* 2522 2576* 
2577 3093* 3094 3179 3582* 3583 3606 3623 

CARDET= 010000 7304 

CHRCNT 004236 1368* 1372 1388* 14064 1407 

CLK = 020000 757# = =1538 1541 

CLK.A 001433 8684 1654 

CLRVEC 005104 15634 

CNVRT = 104411 8354 1151 1153 1155 1157 1481 1483 

CONVRT= 104410 8334 1087 1497 3634 

CORMAX 023540 36424 3 

CRCEN = 001 7524 1980 2397 2613 2653 2696 2719 2766 2814 2876 2989 3285 

CRCERR= 7464 = 2170 2296 3187 3398 3525 3551 

CRC.CC= 102010 17454 2070 2196 2520 

CRC16 = 1 1 17444 3092 3579 

CREAM 001316 7224 949 1608* 1609 1611* 1616 1617* 1618 1621* 

cts =0 u 7298 

CYCLE 006224 1136 1171 1172 15984 

DATA 001324 7894 =2018* 201 2125* 2126 2158* 2162* 2167 2251* 2252 2284" 2288* 2293 
2562* 2563 2572* 2575" 2577 3250* 3251 3259* 3260 3394+ 3398 3524" 3525 


DECMOD= 100000 7514 2613 2653 2696 2719 2766 2814 2876 2989 3111 3241 3285 3350 


001310 
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CZDPDD.P11 -25=JUL=79 15:01 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0076 

DUPCRO 001500 877" = §=991 1055 

DUPCR1 001506 B81" 1056 

DUPCR2 001514 8854 

DUPCRS 001522 8894 

DUPCR4 001530 893¢ 

DUPCRS 0015 8978 

DUPCR6 001544 9014 

DUPCR? 001552 9054 

DUPNUM 00131) 717# = 945. 1044% = 1077 =: 1161 

DUPRPS 001376 B47# 1644" 1645" 1646 «1697 

DUPRVC 001374 B46# 1178 = 1623" 1644 «16 95* 2448 —2455* 2569 —2931* © 2948* 3047" = 3170" = 3206 
3504" 3516" 3522" —3528* 35418 

DUPSEC 001416 B55#@ 1030s 

DUPTPS 001402 8494 1648 1649* 1698* 

DUPTRO 001502 8784 999 

DUPTR1 001510 882# 

DUPTR2 001516 8 

DUPTRS 001524 890# 

DUPTR4 001532 94H 

DUPTRS 001540 8984 

DUPTR6 001546 902m 

DUPTR? 001554 9064 

DUPTVC 001400 8484 1646* 1647" 1668 —-1696* = 2040" = 2043 = 2049" = 2145" 2148" 2154" 2271" = 22748 
2280* 2487* 2588 «2594 3070" 3217e 3385" 3389" 3467% 3473 3476" 3482* 3486 

DUP.EN 001560 909" 984 1068 1609 1618 

DUP:MA 001500 722, B76 949s«9B2——s«*1066-—s—«‘i070”~—'i‘z208KSsiéd167—Ss«2162 

DUPO.A 001504 8794 1039* 1042* 

DUP1:A 001512 8834 

DUP2:A 001520 8874 

DUP3.A 001526 8914 

DUP4:A 001534 8954 

DUPS:A 001542 89Ge 

DUP6:A 001550 9034 

DUP7-A 001556 907# 

EM] " 022056 36424 

EM10 022310 36428 

EM11 022332 36428 

EM12 022361 36424 

EMIS. 022404 36428 

EM14 022444 3642" 

EMIS 023113 3642" 

EM16 023134 3642" 

EMI? 023152 3631-36424 

EM2 022120 36424 

EM20 022507 3642" 

EM21 022532 36428 

EM22 022552 3642" 

EM23 022577 36424 

EM24 022621 36404 

EM25 022641 3640" 

EM26 © 022663 36424 

EM27 022700 3642" 

EMS. 0022145 3640" 

EM30 022715 3640" 

EM31 022762 3642" 





CZDPD=DO 
CZDPDD.P11 


MNE WW 
MPAR 


023051 
0 


005702 


MACY11 30A(1052) 
25-JUL=79 15:01 


M 6 
25-JUL=79 15:19 PAGE 79 
CROSS REFERENCE TABLE == USER SYMBOLS 


1458* 1471 1485* 


15854 


1019 1023 1029 1033 


1457* 


15744 1660 1677 


2209 
3538* 


1661 


SEQ 0077 





N 6 
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CZDPDD.P11 25-JUL=79 15:01 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0078 
MPASSX 005355 1154 15744 
MPOWER 005141 1559 15744 
mam 005132 1267 15744 1683 
005202 1137 15748 1678 
MRESET= 000400 6234 7624 81763 1797 1831 1865 1899 1949 1970 2067 2174 2191 2300 
2316 2369 2389 2475 2514 2555 2611 2633 2651 2694 2717 2746 2764 
a ¢o'3 2959 2987 3015 3109 3137 3237 3287 3348 3375 3430 3457 
MSRJM 005761 1034 15744 
MSTJM 005726 1030 15744 
MT 005600 1024 15744 
MTDATA= 040000 7564 
MTITLE 001000 6614 971 
MTOTAL 5647 1012 15744 
MTSTIN 005377 148 15744 1662 
MTSTPC 300 15744 
C 005512 5 15744 
MVECX 005347 1152 15744 
NEXT 001216 6814 1208 1525 1761* 1793* 1827* 1861* 1895* 1969*  2066* 2190* 2315* 2388* 
+2 2610* 2650* 2693* 2763* 2811* 2867* 2978*  3089*  3236*  3277* 3340*  3418* 
NO.ATR 006770 1700# 1766 1800 1834 1868 
NO.BTR 006774 17044 1767 1801 1835 1304 2049 2154 2280 2320 2418 2594 2871 3070 
3217 3389 3486 
OPCLRJ 001323 7884 1022 1037 1081* 
OVRRUN= 040000 7454 
PARAM = 104405 8274 988 996 1004 1013 1663 
PARAM] 003576 12854 1302 
PARBIT= 000000 6234 
PARCSR 001410 8524 8 =1631* 1980* 2325* 2397% 2536* 2613* 2653* 2696* 2719% 2766* 2814* 2876* 
2989* =3111* 3241% 3290* 3350* 3432% 3587* 
PARERR 003652 1288 1290 1292 13014 1308 1310 1312 
PASCNT 001230 6864 946* 1147* 1148 1181 
PERF OR= 6234 
PKCLK = 104412 8374 3244 3246 3255 3592 3594 3595 
= 012600 6014 1519 
POP1SP= 005726 5994 
POP2SP= 022626 6034 1210 
PRIRTY 1320 7864 861010" 1074* 1794 1828 1862 
PRISEC= 0 7534 2325 2536 
PS = 177776 5924 942* 1124* 1762* 1770* 1796* 1804* 1830* 1838*  1864* 1872* 1898* 1906* 
1947" 1974* 2000" 2082* 21078 2165% 2208* 2233* 22918 2324% 2328% 2396* 2400+ 
10066 2516* Scar" 2868* 2890* 2979 3001* 3090* 3123 3278% 3341* 3361" 3419% 3445* 
PUSH1S= 005746 5984 
PUSH2S= 024646 6024 
005 1553 15554 
QV.FLG 001343 8044 948* 1160* 1199 
= 002000 7474 = =—2365 
RCRCIN= 7764 
RCRC7T= 100000 7754 
RCVEN = 000020 7384 1907 1981 2088 2214 2326 2398 2420 2454 2537 2698 2720 2768 
2816 2878 2991 3113 3240 3289 3352 3434 3589 
RECACT= 004000 731# = 2921 2955 3024 3146 3309 
REOM = 7484 027 


001000 2 
RESREG 004614 1496 14994 


8 7 
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C2DPDD.P11 -25=JUL-79 15:01 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0079 
RESTRT 003116 1159 1163—Ss«41:74 
RESOS = 104407 831" 1499 , 
RETURN 001214 6804 954s 1136" «1138 —1177* = 1208 = 1211S s«1525® 1527 1560 = s«1676* =: 1686: 1687 
RING = 040000 7284 
RINTEN= 000100 7364 1908 1982 2089 2215 2326 2398 2537 2891 3002 31246 3362 3443 
RSOM = 000400 79H 2439 2467 
RUN 001314 720# 950* 1603 1606" 1607" 1614* 1615* 
RXCSR 001404 850# 1175 1622 1626 1907* 1908* 1981* 1982* 2025 2088* 2089* 2159 2214s 
2215* 2285 2326" 2351 2362 2398 «= 2420" «= 2437 24548 = 2457 2405 537* 2573 
2698* 2712 2720 2738 2768 2789 2816% 2844 2878  2891* 2916 2933 50 
2955 2991" 3002" = 3022, 3049S 3113% = 3124" «= 3144 3172S 3175) 3196 3260" = 3247 
3256 = 3289* «= 3302 3352x336 2e «— 3434e §—3443% «= 34923548 = 35.89% 
RXDBUF 001406 851" 1628 1629" 1630 1631 1632 2018 2027 2125 2158 2161 2251 2284 
2287 = 2352, 2364 = 2438 = 2450 2458 «= 2466 = 2562 2572S 2575 2741 = 2792 246 
2917 2934. = 2951 3023) 3050S 31453174 = 8177 ~S 3197 3250S 3259S 3308 «= 339% 
3493 3506 3518 3524 3531 3543 3550 
RXDERR= 100000 7448 
RXDONE= 000200 735#@ = 2353, 24422918 = 2935. 3029S 3151 
SAVACT 001312 7184 1043" 1049* 1051 1052 1078* 1104 
SAVNUM 001313 719# 945% 1065" 1079% 1158* 11618 
SAVPC 001266 705# =1333% =—-1531 
SAVPCA 001306 7148 
SAVRO 001250 6984 1342" 1347 
001270 7074 
SAVR1 001252 699# 1341" 1348  3581* 3642 
SAVRIA 001272 7084 
SAVR2 001254 700% 1340* 1349 3596" 3642 
SAVR2A 001274 2098 
SAVR3. 001256 7014 1339% 1350 3624* 3627* 3642 «© 
SAVR3A 001276 7108 
SAVR4 001260 2028 1338 1351 
SAVR4A 001300 7118 
vR5 001262 7034 1337" = 1352 
SAVRSA 001302 7128 
SAVSP 001264 704 
SAVSPA 001 7138 
SAVOS = 104406 8294 1459 
SCOPE = 104400 8174 1775 1809 1843 1878 1951 2011 2118 22464 2349 2415 2557 2635 
2678 = 2748 —S 2796S 2842S 2962s 3018 = 3140 «= 3263S 3325S 3378 «= 3460 = 3619 
SCOP1 = 104401 8198 
SEND = 000020 765@ 1909 1985 2048 2092 2153 2218 2279 2327 2399 2538 2593, 2615 
2655 2663 2699) 2722) 2769S 2817S 2879S 2904 = 2992 3069S 3194S 3216 3.242 
3254 3291 3353 3388 3435 3485 3590 . 
SETFLG= 104413 839" 1021 1025 1031 1035 
SETVEC 006746 16954 1765 1799 1833 1867 1902 1976 2084 2132 2210 2258 2318 2392 
2416 2532 2869 2982 3104 3342 3420 
SHIFTS 001326 ? 
SIMBCC 007000 17084 2074 2200 252% 09% 3599 
SMALL 005044 15484 1764 1798 1832 1866 1900 1950 1971 2068 2175 2192 2301 2317 
2370 2390S 2476 = 2515 2556 = 2612 2634 = 2652S 695 2718 = 874? = 0765 2813 
2875 2960 2988 301651105158 3258 $288 55493576 5431 5458 5578 
SPACNT= 004237 1369 1390 1393* 1407# 
SRD = 002000 732" 
SRIMFL 001336 7948 1036 
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CZDPDD.P11 —- 25=JUL=79 15:01 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0080 

STACK = 001150 5938 4311251526 1556 194823482414 2961-3017 313933773459 

STIMFL 001334 7934 = 1032 

STPSYN= 000400 7348 2878 = 3434 3589 

SVOS 003744 13374 

SwR = 001202 6674959 9H1* = 973,977, «1091S 10991104 = 1109S 1128S 11901197 
1231 1448 = 14531502, 1521 1523. 1658 361 

SWREG 000176 6554 961 

swOO = 000001 5744 8977 ~—-:1091 

SwO1 = 000002 5734 ©1658 

SwO2 = 000004 572m 

swO3 = 000010 570" 1099 

SwO4 = 000020 5698 

swOS = 0 5684 

SwO6 = 000100 5678 

SwO7? = 000200 66m 

SwO8 = 000400 5654 1521 

SwO9 = 001000 5644 891218 = 3621 

SW10 = 002000 5634 = 1523 

Sw11 = 004000 562" 81197 

Swi2 = 010000 561# 1231 1448 

Sw13 = 020000 5604 1453 

Sw14 = 040000 559M 

Sw15 = 100000 5584 

SYSTST= 004000 771" «©1510 1769 1803 1837 1871 1975 2083 2327 2399 2538 2614 
2697, 2721S 2767, 2815 2877, 2990-3112, 3291S 3351 3433 

TABORT= 002 7804 2338 

TCNFLG 001322 7874 1026 1027 1040 1080" 1896 2193 

TCRCIN= 01 7784 

TCRC7T= 0 7778 

006054 1373-15814 
TEMP? 001236 6934 1016 1044 1045 1046s * 1085 10898 1576 1711* 1734* 1972s 


2037* 2038 2080* 2141 2142s 
2793 2825* 2827* 28408 3174* 
34 3471 


4 
3 2206* 2267 2268* 2269 2741* 2742 
8* 3179 3280* 3284 3294 3315 3322s 
8 
7 


58* 1085* 1578 1712* 1716* 1973* 2019 
QO7* 2252 2255* 2256 2826* 2846* 2847 


TEMPS 001242 6954 1713* 1715 1725* = Wes 1732%* 1733* 1736 2161* 2162 2170 2287* 
2296 3309 3426* 3492% 346494 3584* 3597* 3610 

TEMP4 001244 6964 3308* 3312 3315 3427 3493* 3497 3500 3506* 3507 3510 3518* 
35318 532 535 3543" 3544 3585* 35 3598* 07 3613 

TEMPS 001246 6974 3428 3503* 3510 3513" 3514 3586* 3629 3633* 

TEOM = 001 Bs ly Nee 2045 2150 2276 2497 25 2662 2 3068 3215 3387 

TIMER = 004000 794 1911 1913 1923 1925 1940 1942 1988 1990 2 5 5 
2110 2112 222 2223 22 2238 2340 2342 24 2408 2425 2427 
2548 2618 2620 2665 2667 2705 2707 2731 2733 2771 2773 278 
2829 2831 2908 2994 3006 3008 3116 3118 3128 3130 
3300 3366 3368 3448 3450 

TKCSR 001204 6724 1193 1252 3636 | 

TKDBR 001206 "6734 1195 1254 1260 3638 

TLAST = 021454 1681 36424 

TPCSR 001210 6744 1236 1258 1450 

TPDBR 001212 6754 1238* 1260* 1452* 

TRPOK 004330 1439 
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TRP.PC 006222 15874 
TSOM = 000400 7824 861921 1986 2093 2219 2331 2403 2497 2541 2616 2656 ~* 2659 2700 
2723 2726 2770 2777 2780 2818 2821 2824 2839 2880 2883 2886 2889 
2993 3000 3115 3122 3243 3284 3354 3357 3360 3436 3439 3442 3591 
TSTNO § 001226 6854 953* 1534 1666 167 1674 1760* 1792* 1826* 1860*  1894*  1968*  2065* 


2189* 2314*% 2387* tak 2609* 2649% 2692* 2762* 2810* 2866*  2977* 3088*  3235* 


3276* 3339" «= 3417* 3575s 
TST] 007160 1669 1686 17604 
TSTIO 011432 2066 21894 
TST11 012240 2 2314H 
TST12 012554 2315 23874 
TST13. 013344 2388 439.2512 
TST14 014004 2513 26094 
TSTIS 014156 2610 26494 
TST16 014352 2650 2692 
TST17 014720 2693  2762# 
TST2 007264 1761 17928 
TST20 015142 2763-28104 
TST21 06 2811 28 
TST22 016126 2867 29778 
TST23. 016610 2978 
TST24 017432 3089 - 32354 
TST25 017630 236 32764 
TST26 020110 3277-33398 
TST27 020450 3340 34178 
TST3. 007400 1793 18264 
TST3O =. 0021454 3418 35754 3642 
TST31 = xexeee 3576 
TST4 007514 1827 - 1860# 
TSTS 7632 18944 
TST6 ©: 010172 1895 19684 
TST? 010632 1969 20654 
TTST 003174 1131* 1132* 1134* 1135* 11914 
TWOSYN= 6234 
TXACT = 001000 7614 2629 2675 
TXCSR 001412 8534 1510* 1538" 1541* 1635" 1636* 1637 1763" 1769* 1774s 
1831* 1837* 1842* 1865* 1871* 1877* 1899% 1901s 1909* 1918 
1970* 1975 1983 1985" 1995  1999% 2048"  2067*  2083* 2090 
2153* 2174% = 2191* 2209 +2216 = 2218 = 22 2232% 2279% 2300s 
2332 © 2369e «= 2389* «= 2399e = 2401 = 2404" «2421 «= 2475" = 2480 
2539 = 542% «= 2555* «593% «26 11* 26.14% 2615" 2625 «= 26338 = 26518 
2663" 2672 2675 2694 = 2697* 2699 2701S 717" = 27218 
2746% 2764* 2767% 2769" 2775 = 2778 = 2812* «= 2815" 2817" 2819 
2877  2879* 2881 28 2887 2892 2895 2 2904s 
992s 3003* 3015" 3066 3069 3109* 3112e 3114 3120 
3216% 3237" «3.239% «= 3242" «= 3254e «= 3287e «= 3.291% «= 3292S 3348x «= -33518 
$365 $5754 3588+ 3430" 3433+ 3455+ 5 3440 3444" 34578 
* ca 
TXDBUF 001414 8544 1639" 1640" 1641 1911 1913 1921* 1923 1925 1935s 
1986" 1988 1990 1998 2003 2005 2036" 2042" 2045" 2093 
2110 2141" 2147* 2150" 2219" 2221 2223 22318 2 
2276* 2331" 2334n 2338x 2340 2342 «= 2403" 24 2408 2423 
2493* 2497% 2541% 2546 2548  2584% 2590% 2616* 2618 2620 
2 2700 2703" 2705 2723% © 2726e «= 729% 2731 


2 28 
2886* 2889* 2894" 2897"  2900*  2903* 2906 2908 2993* 2994 
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3008 3063* 3068*  3115* 3116 3118 3122* 3128 3130 3210* 3215* 3243* 3245* 
3294* 3298 3300 3354* 3357 3360* 3366 3368 3384* 3387* 3436* 3439% 3442+ 
3448 3450 3465* 3469* 3475* 3478* 3484* 3591% 3593*  3609* 3612s 


TXDLAT= 100000 7558 
TXDONE= 000200 7634 = — 2626 
TXINTE= 000100 764 1769 1803 1837 1871 1999 2048 2106 2153 2232 2279 2404 = 2498 
2542 2593 3003, 3069-3125 3216 = 3363) 33883444 3485 , 
TYPDAT 004602 1474 14921495 one 
TYPE = 104402 8214 9 1083 1101S «110611301137, 1149-1150 - 1152-1154 1156 1235 
1248 1267 = 1359 «1396 = 147514676 1479-1480 = 1482 1484 = 1488) 1493 =: 1558 
1600 1660 1677 1678 1683 3631 3632 
TYPMSG 004502 1472. 14754 
USER = 6 
WRDCNT 0042 1367* 1397" © 1405# 
WRKO.F 004570 148714 
XBX 004374 1449 1451 14534 
XCSR 003130 1151-11738 
KERR 003152 115711824 
XHE AD 1083 1574 
XPASS 003144 11551179 
XPOLY 007152 1721 1732. 1741 = 2070 = 2196* = 2520" = 3092" 3579s 
XSTATQ 006042 1088 1574 
XTSTN 005 1481 15328 
KVEC 003136 1153-1176" 
= 1# 1761 17624 1793 1794" 1827 18284 1861 18624 1895 1896" 1969 1970# 
2066 = 2067 = 2190 2191# = 2315. 2316# = 2388 = 2389H «= 2513, 2514 = 2610 26114 =. 2650 
2651 2693 26944 = 2763 764K = 2811 28124 «= 2867 2B6BH «2978 = 2979" = 3089= «3090s 
3236 © 3237 «= 3277, 32784 = 3340 «3341 = 3418 «= 3419" 93576 «35778 
SENDAD 003104 649. 969 1165" 1500 
$N = - 000030 1# 1748 1754 1762 1780 1786 1794 1814 1820 18284 1848 1854  1862« 
1882 1888. «1896 «= 1957 1962, 1970H = 2054 = 2059.) 2067H = 2178 = 2183. 2191 = 2304 
2308 = 2316" = 2374 = 2381. «= 2389 = 2502 2506. = 2514H = 2598 = 2603. 2611# = 2638 2643 
26518 2681 «6 26944 2751 «= 2756 764K 27 28 28124 285 
2971 2979" 3082. 3090 §= 3224 «= 3229S 32374 3270 3278" == 3329 
3333 3341 = 34053411 3419H 93559 3569.) 3577" = 3642" 
$RAYO = 177777 1# 17484 1749 1752 1780" 1781 17844 18144 1815 18184 18484 1849 1852# 
18824 1883 1886" 19574 1958 1960" 2054 2055 2057 2178 2179 21814 2304" 
2305 23074 = 2374a 23 2502 2503 2505#  2598¢ 26014 26 2639 
26414 26818 2682 = 26844" 07514 27544 = 27 28 2802# 28534 2854 2859" 
970# 30764 3077 30814 3224" 3225 3227" 32 3267 3269 = 33 
3330. 3332# 3405# 3406 3409" 3559 3560 35684 
$Y = 000014 B0Be 817 B19" = B21 23H 8254 B27H B29 31H B33" BSS 8378 
= 023540 6344 635 638% 6454 6504 6534 656% 660% 6624 716 7178 7188 
720H 867218 = 7878 = 7884 = 793H = 7048 = 875H# = 877# = 8784 879K = BB IH BB le 
885# = B86H = B87# = B80# 891" 8934 8944 895% 897% 89 899" 
902m 9054  _906# a 8 1108 1582% 1584" 1586" 15874 1602 
2020 2028 = 2076 = 2077 )=— 2127S 2160) 2168 = 2171 «= 2202 = 2203# = 2253 2286 
2297  2526# = 2527H = 2564 = 2574 = 2578 = 3520 (3608 
.BEGIN 002660 112m 
CNVRT 004034 13604 
CONVR 004030 4 13598 ; 
2764 11454 3576 
ERRTA 023274 1467 36428 
HLT 004350 641 14488 
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-INSTR 003412 824 12444 

INST1 003432 12484 1268 

MSG 0034 34 12466* 12498 

-PARAM 003536 828 1276 

-PFAIL 005050 639 944 1553@ 1557 
PKCLK 005006 838 15354 

RESOS 003776 832 13474 

SAVOS 003736 830 13334 

SCOPE 003160 818 118 

SCOP1 003312 820 12184 

~SETFL 004242 840 14164 1628 

«START 001562 657 9424 954 

TRPSR 004316 643 14364 





CZDPD=D0 MACY11 30A(1052) 
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$ 1# §=1546 
SSYNC 5418 2724 2775 
STRPDE of 817 819 
STSTN 1#@ = §=61754 1786 
756 2804 2 
SVARIA la 659 
$SwAlT le 1910 1922 
2664 2704 2730 
$xZ i# 1748 1752 
2178 2181 23 
27546 2799 ‘2802 
3405 3409 3559 
- ABS. 023540 


ERRORS DETECTED: 


CZDDPDD .BIN,CZDPDD.LST/CRF /SOL /NL : TOC=CZ2DPKX MAC ,CZDPDD. 
: 34 47 3 SECONDS 


RUN-TIME 


RUN-TIME RATIO: 


CORE USED: 


25K 


0 


1396/86=16.1 
(49 PAGES) 


25-JUi -79 
2778 2819 
821 823 
1820 1854 
2971 3082 
1939 1987 
2771 2781 
1780 1784 
2307 2376 
2853 2859 
3568 


15:19 PAGE 88 
CROSS REFERENCE TABLE == MACRO NAMES 


Pl 


SEQ 0085 


3440 
2686 


